常见VB考精彩试题型.doc

《常见VB考精彩试题型.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、1输入半径,求圆面积和球体积。PrivateSubForm_Load()DimrAsSingle,sAsSingle,vAsSingler=InputBox("请输入半径r：","输入数据")s=3.14*r^2v=4/3*r^3*3.14'Print"圆面积为:";s'Print"球体积为:";vMsgBox("圆面积为:"&s&Space(2)&"球体积为:"&v)EndSub2输入两个数存放在x和y中，比较大小，保证大数放在x中，小的数放在Y中。PrivateSubCommand1_Click()Print"比较前:"X=InputBox("请输入X")Y=InputBox("请输

2、入Y")Print"X=";X,"Y=";YIfX

3、ElseMsgBox"密码错误,请重新输入",16EndIfElseMsgBox"用户不存在",16+1,"登录"EndIfEndSub5判断一个数是整数还是小数，如果是整数再判断其奇偶性。PrivateSubForm_Click()x=InputBox("请输入一个数;")IfInStr(1,x,".")=0ThenIfxMod2=0ThenMsgBox(x&"是整数,是偶数！")ElseMsgBox(x&"是整数,是奇数！")EndIfElseMsgBox(x&"是小数")EndIfEndSub6书店优惠售书PrivateSubCommand1_Click()DimxAsSingle

4、,yAsSinglex=Val(Text1.Text)SelectCasexCaseIs<=100y=x*0.8CaseIs<=200y=x*0.7CaseIs<=300y=x*0.5CaseElsey=x*0.3EndSelectLabel3.Caption=y&"元"EndSub7设计一个计程车收费程序PrivateSubCommand1_Click()X=Val(Text1.Text)SelectCaseXCaseIs<=3Label3.Caption=6CaseIs<=30Label3.Caption=6+(X-3)*1.5CaseElseLabel3.Caption=6+27*

5、1.5+(X-30)*2EndSelectEndSub8输入10个数，输出累加之和。PrivateSubCommand1_Click()DimSAsSingle,iAsInteger,xAsSingleS=0Fori=1To10x=Val(InputBox("请输入第"&i&"个数"))Print"第"&i&"个数"&xS=S+xNextiPrint"十个数累加之和为"&SEndSub9输入10个数，输出偶数之和。PrivateSubCommand1_Click()DimSAsSingle,xAsSingleDimnAsInteger,iAsIntegerS=0Fori=1To10x=V

6、al(InputBox("请输入第"&i&"个数"))Print"第"&i&"个数"&xIfxMod2=0ThenS=S+Val(x)EndIfNextiPrint"十个数中偶数累加之和为"&SEndSub10求S=1+2+3+……+100PrivateSubCommand1_Click()DimIAsInteger,SAsLongS=0ForI=1To100S=S+INextIPrintTab(10);"S=";SEndSub11求S=1+3+5+……+99PrivateSubCommand1_Click()s=0Fori=1To100Step2s=s+iNextiPrint"s=";

7、sEndSub12S=1+22+32+……+102，计算并输出sPrivateSubCommand1_Click()s=0Fori=1To10s=s+i^2NextiPicture1.Print"s=";sEndSub13S=1+22+32+……+n2，问n为多少时，s的值大于100000？PrivateSubCommand1_Click()s=0n=0DoWhiles<=100000n=n+1s=s+n^2LoopPrintPri