VB测试题答案

《VB测试题答案》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第6页共6页1题；设计应用程序，输入圆柱体的底面半径和高，求底面积、侧面积、体积。要求：1）程序中将π定义成符号常量。2）将输入的底面半径和高分别存于单精度变量r和h中。（窗体文件名A1.FRM，工程文件名A1.VBP）ConstpiAsSingle=3.1415926PrivateSubCommand1_Click()DimhAsSingleDimrAsSingleh=Val(Text1.Text)r=Val(Text2.Text)Text3.Text=Format(pi*r^2,"0.000")Text4.Text=Format(2*pi*r*

2、h,"0.000")Text5.Text=Format(pi*r^2*h,"0.000")EndSub2题；用块结构条件语句实现。要求用InputBox函数输入三个数，找出并输出三个数中的最大数及最小数。（窗体文件名A2.FRM，工程文件名A2.VBP）PrivateSubForm_Click()DimMaxAsInteger,MinAsInteger,a(1To3)AsIntegerFori=1To3a(i)=Val(InputBox("请输入数值","找出最大和最小值","0"))NextiMax=a(1)Min=a(1)Fori=1To3If

3、a(i)>MaxThenMax=a(i)EndIfIfa(i)

4、ption=VScroll1.ValueLabel7.Caption=(212-32)/100*VScroll1.Value+32EndSubPrivateSubVScroll1_Change()Label8.Caption=VScroll1.ValueLabel7.Caption=(212-32)/100*VScroll1.Value+32EndSubPrivateSubVScroll1_Scroll()Label8.Caption=VScroll1.ValueLabel7.Caption=(212-32)/100*VScroll1.Value+

5、32EndSub4题：设计界面如图所示。单击“出题”按钮，产生任意两个[10，50]之间的随机整数于Text1、Text2中，单击“求积”按钮，求两个数的积。运算结果为只读。（窗体文件名B2.FRM，工程文件名B2.VBP）PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerRandomizex=Int(41*Rnd+10)y=Int(41*Rnd+10)Text1.Text=xText2.Text=yEndSub第6页共6页PrivateSubCommand2_Click()Text3.Text=F

6、ormat(Val(Text1.Text)*Val(Text2.Text))EndSub5题：编写程序实现如下功能：程序运行后，单击“体重指数”按钮，则先后显示两个输入对话框，在两个输入对话框中分别输入身高(单位：米)和体重（单位:千克），使输入的值在相应的文本框中显示出来，并根据所输入的身高和体重计算体重指数，计算结果通过消息框输出。运行结果如图所示。（窗体文件名B3.FRM，工程文件名B3.VBP）重要提示：体重指数=体重÷（身高×身高）。PrivateSubCommand1_Click()DimAAsSingle,BAsSingle,TAsS

7、ingleA=Val(Text1.Text)B=Val(Text2.Text)T=B/(A^2)MsgBox"您的体重指数为："&Format(T,"0.0"),,"SJT1"EndSub6题：设计如图所示界面，单击两个命令按钮后分别在文本框中输出N的阶乘和（N+2）的阶乘的运算结果。（窗体文件名C1.FRM，工程文件名C1.VBP）DimNAsLong,XAsLongPrivateSubCommand1_Click()N=Val(Text1.Text)X=1Fori=1ToNX=X*iNextiText2.Text=XEndSubPrivateS

8、ubCommand2_Click()N=Val(Text1.Text)X=1第6页共6页Fori=1To(N+2)X=X*