资源描述：
《vb上机练习题(一)》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、VB上机练习题(一)1、求10个三位正整数中的偶数之和，正整数用随机函数Rnd产生，或由InputBox函数输入。Dimi,sum,x%,a$PrivateSubCommand1_Click()Fori=1To10x=Int(Rnd*(999-100+1)+100)Ifx<1000Andx>99AndxMod2=0Thensum=sum+xNextia="总合为"&CStr(sum)MsgBoxaEndSubPrivateSubCommand2_Click()Fori=1To10c1=Chr(13)+Chr(10)msg1="请输入第"&i&"
2、个三位正整数"msg2="然后按回车键"msg3="或者单击“确认”按钮"msg=msg1+c1+msg2+c1+msg3x=Val(InputBox(msg))SelectCasexCase100To999IfxMod2=0Thensum=sum+xCaseElseMsgBox"请输入一个三位正整数！"EndSelectNextia="总合为"&CStr(sum)MsgBoxaEndSubistheTibetanPlateaupoly.Centercityonlyapopulationofoveronemillion.Xiningisloca
3、tedinthe"Tangfangudao"andtheancient"SilkRoad"road,istheLoessPlateauandtheTibetanPlateau,agriculturalandpastoralareasand,inconjunctionwiththeMinistryofcultureandIslamicculture2、求10个三位正整数中的奇数之和，正整数用随机函数Rnd产生，或由InputBox函数输入。Dimi,x,sum%,a$PrivateSubCommand1_Click()Fori=1To10x=In
4、t(Rnd*(999-100+1)+100)Ifx>99Andx<10000AndxMod2=1Thensum=x+sumPrintxNextia="10个3位正整数奇数的和为："&CStr(sum)MsgBoxaEndSubPrivateSubCommand2_Click()Fori=1To10msg1="请输入第"&CStr(i)&"个3位正整数"msg2="然后按回车键"msg3="或者点击“确定”按钮"c1=Chr(10)+Chr(13)msg=msg1+c1+msg2+c1+msg3x=Val(InputBox(msg))Select
5、CasexCase100To999IfxMod2=1Thensum=sum+xCaseElseMsgBox"请输入三位正整数！"EndSelectNextia="10个3位正整数奇数的和为："&CStr(sum)MsgBoxaEndSubistheTibetanPlateaupoly.Centercityonlyapopulationofoveronemillion.Xiningislocatedinthe"Tangfangudao"andtheancient"SilkRoad"road,istheLoessPlateauandtheTibet
6、anPlateau,agriculturalandpastoralareasand,inconjunctionwiththeMinistryofcultureandIslamicculture3、编写程序，打印如图1所示图形。图1PrivateSubForm_Click()Dimi%,j%Fori=1To5PrintTab(15-i);Forj=1To(2*i-1)Print"*";NextjPrintNextiEndSub4、1—100之间自然数的平方和，程序参考界面如图2所示：图2PrivateSubForm_Click()Dimi,x,s
7、um&Fori=1To100x=1+xsum=sum+x^2NextiText1.Text=Str(sum)EndSubistheTibetanPlateaupoly.Centercityonlyapopulationofoveronemillion.Xiningislocatedinthe"Tangfangudao"andtheancient"SilkRoad"road,istheLoessPlateauandtheTibetanPlateau,agriculturalandpastoralareasand,inconjunctionwith
8、theMinistryofcultureandIslamicculture5、输入时间（小时、分和秒）然后使用输出消息框输出总计多少秒。使用文本框输入
