欢迎来到天天文库
浏览记录
ID:59378543
大小:220.50 KB
页数:37页
时间:2020-09-04
《常见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=";YIfX3、ElseMsgBox"密码错误,请重新输入",16EndIfElseMsgBox"用户不存在",16+1,"登录"EndIfEndSub5判断一个数是整数还是小数,如果是整数再判断其奇偶性。PrivateSubForm_Click()x=InputBox("请输入一个数;")IfInStr(1,x,".")=0ThenIfxMod2=0ThenMsgBox(x&"是整数,是偶数!")ElseMsgBox(x&"是整数,是奇数!")EndIfElseMsgBox(x&"是小数")EndIfEndSub6书店优惠售书PrivateSubCommand1_Click()DimxAsSingle4、,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=V6、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
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
此文档下载收益归作者所有