VB_郭贤海_课后答案全

1、习题一一、填空题1、“控件工具箱”、“窗体设计器”、“工程资源管理器”、“属性窗口”、“窗体布局窗口”、“代码编辑器”“立即”、“本地”和“监视”窗口等2、三；设计（Design）模式、运行模式（Run）和中断（Break）模式3、工程1;1;Forml4、选择菜单“视图|立即窗口”即可打开“立即”窗口；它是VisualBasic中的一个系统对象，叫Debug对象，可以在调试程序时使用它，通常使用Print方法向立即窗口中输出程序的信息，还可以将语句直接写在“立即”窗口上，按“回车”键后，这行语句会被立刻执行。5、查看代码、查看对象；“查看对象”按钮；“查看代码”按钮二、选择题B2.C3.D4

2、.B5.C6.B7.D三、程序设计题1.PrivateSubCommand1_Click（）Text1.Text="欢迎使用VB!”EndSubPrivateSubCommand2_Click()Textl.Text=""EndSubPrivateSubCommand3_Click()EndEndSub2.PrivateSubCommand1_Click()Label1.Caption="你好，张三!Command1.Enabled=FalseEndSubPrivateSubCommand2_Click()Label1.Visible=FalseComm

3、and3.Enabled=TrueCommand2.Enabled=FalseEndSubPrivateSubCommand3_Click()Label1.Visible=TrueCommand3.Enabled=FalseEndSub习题二一、填空题0“除数为零”错误LongFalseConstPI=3.14159True44DimMystrAsString*10True1<=xAndx<=5二、程序设计题1.PrivateSubCommand1_Click()Label1.Left=Label1.Left-100EndSubPrivateSubCommand2_Click()L

4、abell.Left=Label1.Left+100EndSubPrivateSubCommand3_Click()Label1.Top=Label1.Top-100EndSubPrivateSubCommand4_Click()Label1.Top=Label1.Top+100EndSub2.PrivateSubCommand1_Click()Label1.Caption="百位数："+Left(Text1.Text,1)+"十位数："+Mid(Text1.Text,2,1)+"个位数："+Right(Text1.Text,1)En

5、dSub3.PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSinglea=Textl.Textb=Text2.Textc=a+bLabell.Caption="+"Text3.Text=cEndSubPrivateSubCommand2_Click()DimaAsSingle,bAsSingle,cAsSinglea=Text1.Textb=Text2.Textc=a-bLabel1.Caption="-"Text3.Text=cEndSubPrivateSubCommand3_Click()Di

6、maAsSingle,bAsSingle,cAsSinglea=Text1.Textb=Text2.TextLabell.Caption="*”Text3.Text=cEndSubPrivateSubCommand4_Click()DimaAsSingle,bAsSingle,cAsSinglea=Text1.Textb=Text2.Textc=a/bLabel1.Caption="/"Text3.Text=cEndSubPrivateSubCommand5_Click()Textl.Text=""Text2.Text=""

7、Text3.Text=""EndSubPrivateSubCommand6_Click()EndEndSub4.PrivateSubCommand1_Click()4为，号码+"DimcAsStringc=InputBox("输入带区号的电话号码，区号为为8位，比如输入“7”：”)MsgBox("区号："+Left(c,4)+Chr(13)+Chr(10)号码："+Right(c,8)EndSub习题二一、填空题0“除数为零”错误LongFalseConstPI=3.14159True44DimMystrAsString*1

8、0True1<=xAndx<=5二、程序设计题1.PrivateSubCommand1_Click()Labell.Left=Label1.Left-100EndSubPrivateSubCommand2_Click()Label1.Left=Label1.Left+100EndSubPrivateSubCommand3_Click()Label1.Top=Label1.Top-100EndSubPrivateSubCommand4_Click()Label1.Top=Label1.Top+100EndSub2.PrivateSubCommand1_Click()Label1.Ca

9、ption="百位数："+Left(Text1.Text,1)+"十位数："+Mid(Text1.Text,2,1)+"个位数："+Right(Text1.Text,1)EndSub3.PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSinglea=Text1.Textb=Text2.Textc=a+bLabel1.Caption="+"Text3.Text=cEndSubPrivateSubCommand2_Click()DimaAsSingle,bAsSi

10、ngle,cAsSinglea=Text1.Textb=Text2.Textc=a-bLabel1.Caption="-"Text3.Text=cEndSubPrivateSubCommand3_Click()DimaAsSingle,bAsSingle,cAsSinglea=Text1.Textb=Text2.Textc=a*bLabell.Caption="*"Text3.Text=cEndSubPrivateSubCommand4_Click()DimaAsSingle,bAsSingle,cAsSinglea=Textl.Textb=Text2.

11、Textc=a/bLabell.Caption="/"Text3.Text=cEndSubPrivateSubCommand5_Click()Textl.Text=""Text2.Text=""Text3.Text=""EndSubPrivateSubCommand6_Click()EndEndSub4.PrivateSubCommand1_Click()4为，号码+"DimcAsStringc=InputBox("输入带区号的电话号码，区号为为8位，比如输入“7”：”)MsgBox("

12、;区号："+Left(c,4)+Chr(13)+Chr(10)号码："+Right(c,8)EndSub二、程序填空1.(1) i>=0i<iMin2.(1) i>=0i<iMin3PrivateSubCommand1_Click()Dimstr1AsString,str2AsStringstr1=Text1.Textstr2=""m=0DoWhilem<Len(str1)/2str2=str2+Mid(str1,m+1,1)str2=str2+Mid(str1,Len(str1)-m,1)m=m+1LoopForm1.Pr

13、intstr2EndSub4.PrivateSubCommand1_Click()Dimstr1AsString,str2AsStringstr1=Text1.Textstr2=""m=0DoWhilem<Len(str1)/2str2=str2+Mid(str1,m+1,1)str2=str2+Mid(str1,Len(str1)-m,1)m=m+1LoopForml.Printstr2EndSub5.PrivateSubForm_Click()DimiAsIntegerDimkAsSingleDimpAsIntegerDimsAsSinglep=1s=0Fori=

14、1To100k=p/ip=-ps=s+kNextiForm1.Print"s="sEndSub三、程序设计PrivateSubForm_Click()DimxAsSingle,yAsSinglex=InputBox("")Ifx>10Theny=Sqr(x)+Sin(x*3.14/180)Elselfx=0Theny=0Elsey=2*x八3+6EndIfPrintyEndSub2.PrivateSubForm_Click()DimiAsInteger,nAsInteger,mAsInteger,sAsIntegern=InputBox("

15、;")RandomizeFori=1Tonm=Int(Rnd*90)+10IfmMod2=0Thens=s+mNextiLabell.Caption=sEndSub3.PrivateSubCommand1_Click()DimiAsInteger,nAsInteger,aAsInteger,bAsInteger,cAsIntegerFori=1To100n=InputBox("")Ifn>=85Thena=a+1ElseIfn>=60Thenb=b+1Elsec=c+1EndIfNextiLabel1.Caption=aLabel2.Caption=a

16、Label3.Caption=a4.PrivateSubCommand1_Click()DimiAsInteger,nAsInteger,sAsSingles=1n=InputBox("")Fori=1Tons=s+i/(i+1)*(i+2)NextiText1.Text=sEndSub5.PrivateSubForm_Click()DimiAsInteger,jAsInteger,kAsIntegerFori=1To9Forj=0To9Fork=0To9Ifi八3+j八3+k八3=i*100+j*10+kThenPrinti*100+j*10+kEndIfNextk,j,

17、iEndSub6.PrivateSubForm_Click()DimiAsInteger,jAsIntegerDimmAsInteger,nAsIntegerDimaAsInteger,bAsIntegerFori=1To99Forj=i+1To100m=i+jn=j-ia=Sqr(m)b=Sqr(n)Ifa八2=mAndb八2=nThenPrinti,jEndIfNextjNextiEndSubPrivateSubForm_Click()DimiAsInteger,jAsInteger,kAsIntegerFori=0To9Forj=0To12k=36-i-jIfi*4+j*3+k/2=36

18、ThenPrinti,j,kEndIfNextjNextiEndSub8.PrivateSubForm_Click()DimiAsInteger,sAsSingleDoi=i+1s=s+1/(i八2)LoopUntil1/(i八2)<10八-5s=6*sPrintSqr(s)9.PrivateSubForm_Click()DimiAsInteger,sAsSingle,pAsSingles=1p=1Doi=i+1p=p*is=s+1/pLoopUntil1/p<10八-5PrintsEndSub10.PrivateSubForm_Click()DimiAsInteger,jAsIn

19、teger,sAsSingleFori=1To50Forj=1Tois=s+jNextjNextiPrintsEndSub11.PrivateSubForm_Click()DimiAsInteger,jAsInteger,mAsInteger,nAsIntegerm=InputBox("")n=(mMod10)*10+m10Fori=10To99j=(iMod10)*10+i10Ifi+m=j+nThenPrintm,iExitForEndIfNextiEndSub习题四二、程序填空1.PrivateSubForm_Load()cmdEnd.Enabled=FalseEnd

20、SubPrivateSubcmdStart_Click()DimnAsInteger,iAsInteger,jAsInteger,pAsIntegerDima(200)AsString*1,strlAsString,tAsStringstrl=Textl.Textn=Len(strl)Fori=1Tona(i)=Mid(str1,i,1)NextiFori=1Ton-1P=iForj=i+1TonIfa(p)>a(j)Thenp=jNextjIfp<>iThent=a(i):a(i)=a(p):a(p)=tNextiFori=1TonPrinta(i);NexticmdEnd

21、.Enabled=TruecmdStart.Enabled=FalseEndSubPrivateSubcmdEnd_Click()EndEndSub2.三、程序设计1.PrivateSubForm_Click()Dimx(10)AsInteger,iAsIntegerDimMaxAsInteger,mAsInteger,MinAsInteger,nAsInteger'Max、m存最大值和最大值位置；Min、n存最小值和最小值位置Fori=1To10x(i)=InputBox("请输入第"&i&"个数：")Printx(i);

22、9;显示在窗体上NextiPrint显示换行Max=x(1)Min=x(1)m=1n=1Fori=1To10IfMax<x(i)ThenMax=x(i)m=i'记录最大值位置EndIfIfMin>x(i)ThenMin=x(i)n=i'记录最小值位置EndIfNextiIfm>1Then'如果最大元素不是第一个，则与第一个交换x(m)=x(1)x(1)=MaxEndIfIfn<10Then'如果最小元素不是第10个，则与第10个交换x(n)=x(10)x(10)=MinEndIfFori=1To10'在窗体上显示结果Printx(

23、i);NextiEndSub2.PrivateSubCommand1_Click()Dima(10)AsInteger,b(10)AsInteger,iAsInteger'下面完成(1):Fori=1To10a(i)=InputBox("请输入第"&i&"个数：")Nexti'(1)完成，下面完成(2):Fori=1To10t=a(i),取元素Whilet>0'分解t的每一位，并加入到b(i)中b(i)=b(i)+(tMod10)'取出t的个位数,加入b(i)中t=t10't缩小十倍，去掉原来

24、的个位WendNexti'(2)完成，下面完成(3):Fori=1To10Printa(i);NextiPrint'(3)完成，下面完成(4):Fori=1To10Printb(i);NextiEndSub3.4.PrivateSubForm_Click()Dima()AsSingle,nAsInteger,iAsIntegerDimsumAsSingle,vAsSingle,sAsSinglen=InputBox("请输入元素个数：")ReDima(n)Fori=1Tona(i)=InputBox("请输入第"&i&&q

25、uot;个数：")Printa(i);,显示在窗体上NextiPrint'显示换行'求出v:Fori=1Tonsum=sum+a(i)Nextiv=sum/n'求出s：sum=0Fori=1To10sum=sum+(a(i)-v)八2Nextis=Sqr(sum)/n,显示结果：Printv,sEndSub习题五三、程序设计1.PublicSubDToB(dec,bin)DimresAsIntegerDimiAsInteger求出除以2的余数Dores=decMod2bin=Trim(Str(res)&bindec=dec2LoopWhiledec&g

26、t;0EndSubPrivateSubCommand1_Click()DimdecAsInteger,binAsStringdec=InputBox("")CallDToB(dec,bin)PrintbinEndSub2.'功能：判断整数x是否索数，如果是返回True,否则返回FalseFunctionPrime(ByValxAsInteger)AsBooleanDimiAsIntegerIfx<2ThenExitFunction'当x<2返回FalseFori=2ToSqr(x)IfxModi=0ThenExitFunction'如果x

27、被i整除，说明x不是索数，立刻返回NextiPrime=True'x是索数EndFunctionPrivateSubForm_Click()DimiAsIntegerFori=1To100IfPrime(i)ThenPrinti;NextiEndSub3.'功能：在字符串S1中查找子串S2,返回找到的个数，未找到返回0FunctionFind(S1AsString,S2AsString)AsIntegerDimiAsInteger,jAsInteger,L1AsInteger,L2AsIntegerL1=Len(S1)L2=Len(S2)Fori=1ToL1-L2+1IfMid

28、(S1,i,1)=Left(S2,1)Then'如果S1中第i个字母与S2的首字母是否相同，进行下面的判断Forj=2ToL2'判断S1中第i+1个开始的字母序列与S2中第2个开始的字母序列是否相同IfMid(S1,i+j-1,1)<>Mid(S2,j,1)ThenExitForNextjIfj>L2ThenFind=Find+1'找到相同的子串，子串计数+1EndIfNextiEndFunctionPrivateSubForm_Click()DimS1AsString,S2AsString,nAsInteger51 =Input("请输入一个字符串：")52 =Input("请输入要查找的子串：")n=Find(S1,S2)Ifn>0ThenMsgBox"找到"&n&"个子串。"ElseMsgBox"未找到。"EndIfEndSub习题九三、程序填空题1.PrivateSubCommand1_Cli