欢迎来到天天文库
浏览记录
ID:42099941
大小:91.50 KB
页数:6页
时间:2019-09-08
《《vb教学资料》vb习题参考答案(第3章)》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、第3章结构化程序设计与数组—-v判断题1.72.x3.74.x5.J6.x7.x8.勺9.x10.7二1、选择题1.A2.A3.D4.C5.C6.D7.A8.B—1、填空题1.Ifx>yThent=y:y=x:x=t2.is3.Fori=0to9:B(i)=InputBox(”B(”&i&”)=”):Nexti4.ReDima(n)assingle5.String6.8四、程序阅读题(写出下列程序的运行结果)程序1.5511程序2.20程序3.2471116程序4.1491625W82345WWWWWWWW76456程序
2、5.wwwwwwwWWWWWWWww程序6.65467WWWWWWWWWWw5432843210五、程序填空题1.(1)s=l(2)n(3)s=s+p2.(1)whiler<>0(2)r=mModn(3)printn3.(1)Redima(n)assingle(2)v=v+a⑴(3)v=v/n(4)a(i)>v4.(1)m(2)n(3)exitfor(4)j<=n5.(1)k=i(2)k=j(3)a(k)=t(4)a(i)Mod2=16.本题不要求掌握六、程序设计题程序1・界面设计略,过程设计如下:PrivateSubF
3、orm_Click()DimxAsInteger,yAsInteger,zAsIntegerDimmaxAsInteger,middAsInteger,minAsIntegerx=InputBox(H请输入X的值:”)y=InputBox(”请输入y的值:”)z=InputBox(n请输入z的值:”)Ifx>yThenmax=xElsemax=yIfz>maxThenmax=zIfx4、nEndSub程序2・界面设计略,过程设计如下:PrivateSubForm_Click()DimxAsSingle,yAsSingleX=InputBox(”请输入X的值:”)Ifx>3Theny=x+3Elselfx>=1Theny=x*xElselfx>0Theny=Sqr(x)Elsey=0EndIfPrintyEndSub程序3・界面设计略,过程设计如下:PrivateSubForm_Click()DimiAsInteger,jAsIntegerFori=1To9Forj=1ToiPrintTab((j-1)*5、4);Trim(i*j);NextjPrintNextiEndSub程序4・界面设计略,过程设计如下:PrivateSubCommand1_Click()DimxAsDouble,sAsDouble,aiAsDouble,vAsDoubleDimiAsInteger,nAsIntegerx=Val(InputBox(nx=n))n=Val(InputBox(nn='r))S=1+Xv=1Fori=1Tonv=v*(i+1)ai=xAi/vs=s+aiNextiPrintsEndSub程序5.界面设计略,过程设计如下:Pr6、ivateSubCommand1_Click()DimeAsSingle,tAsSingle,vAsSingleDimiAsIntegere=l:ai=l:i=l:v=lDoWhileai>=0.0001v=v*iai=1/vIfai>=0.0001Thene=e+aii=i+1LoopPrinteEndSub程序6・界面设计略,过程设计如下:PrivateSubCommand1_Click()DimiAsLong,kAsIntegerFori=1To1000k=Len(Trim(Str(i)))If(i*i・i)Mod7、10Ak=0ThenPrinti;i*iNextiEndSub程序7.界面设计略,过程设计如下:PrivateSubCommandl_CIick()Dimx(l0)AsSingle,y(l0)AsSingle,sAsSingleDimiAsInteger,jAsIntegerFori=1To10x(i)=Val(InputBox(”x(”&i&”)=”))y(i)=Val(InputBox(My(H&i&“)=”))NextiFori=1To9Forj=i+1To10s=s+Sqr((x(i)・x(j))A2+(y(i)8、-y(j))A2)NextjNextiPrintsEndSub程序8・界面设计略,过程设计如下:PrivateSubForm_Click()DimmAsInteger,nAsInteger,m2AsInteger,n2AsIntegerDimtAsBoolean'用于判断某个数是否在集合屮出现过,true表示出现过m
4、nEndSub程序2・界面设计略,过程设计如下:PrivateSubForm_Click()DimxAsSingle,yAsSingleX=InputBox(”请输入X的值:”)Ifx>3Theny=x+3Elselfx>=1Theny=x*xElselfx>0Theny=Sqr(x)Elsey=0EndIfPrintyEndSub程序3・界面设计略,过程设计如下:PrivateSubForm_Click()DimiAsInteger,jAsIntegerFori=1To9Forj=1ToiPrintTab((j-1)*
5、4);Trim(i*j);NextjPrintNextiEndSub程序4・界面设计略,过程设计如下:PrivateSubCommand1_Click()DimxAsDouble,sAsDouble,aiAsDouble,vAsDoubleDimiAsInteger,nAsIntegerx=Val(InputBox(nx=n))n=Val(InputBox(nn='r))S=1+Xv=1Fori=1Tonv=v*(i+1)ai=xAi/vs=s+aiNextiPrintsEndSub程序5.界面设计略,过程设计如下:Pr
6、ivateSubCommand1_Click()DimeAsSingle,tAsSingle,vAsSingleDimiAsIntegere=l:ai=l:i=l:v=lDoWhileai>=0.0001v=v*iai=1/vIfai>=0.0001Thene=e+aii=i+1LoopPrinteEndSub程序6・界面设计略,过程设计如下:PrivateSubCommand1_Click()DimiAsLong,kAsIntegerFori=1To1000k=Len(Trim(Str(i)))If(i*i・i)Mod
7、10Ak=0ThenPrinti;i*iNextiEndSub程序7.界面设计略,过程设计如下:PrivateSubCommandl_CIick()Dimx(l0)AsSingle,y(l0)AsSingle,sAsSingleDimiAsInteger,jAsIntegerFori=1To10x(i)=Val(InputBox(”x(”&i&”)=”))y(i)=Val(InputBox(My(H&i&“)=”))NextiFori=1To9Forj=i+1To10s=s+Sqr((x(i)・x(j))A2+(y(i)
8、-y(j))A2)NextjNextiPrintsEndSub程序8・界面设计略,过程设计如下:PrivateSubForm_Click()DimmAsInteger,nAsInteger,m2AsInteger,n2AsIntegerDimtAsBoolean'用于判断某个数是否在集合屮出现过,true表示出现过m
此文档下载收益归作者所有