资源描述：
《VB程序设计期末练习题》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、程序练习题编写求数组a=Array(10,334,86,14,72,53,755,31)最小值的程序PrivateSubCommand1_Click()DimMAsInteger,i%a=Array(10,334,86,14,72,53,755,31)M=a(0)Fori=1To7IfM>=a(i)ThenM=a(i)EndIfNextiText1.Text=MEndSub4+56*7/8Mod9的值,写出计算过程PrivateSubCommand1_Click()DimNAsIntegerN=4+56*7/8Mod9Text1.Text=NEndSu
2、b编写求累加与累乘的函数过程PrivateSubCommand1_Click()DimA,B,NAsInteger,i%,j%N=InputBox("累加的个数为")Fori=1ToNA=0Forj=1ToiA=A+jNextjB=B+ANextiText1.Text=BEndSubPrivateSubCommand2_Click()DimA,B,NAsInteger,i%,j%N=InputBox("累乘的个数为")B=1Fori=1ToNA=1Forj=1ToiA=A*jNextjB=B*ANextiText2.Text=BEndSub使用Common
3、Dialog控件显示打开保存颜色字体对话框PrivateSubCommand1_Click()CommonDialog1.ShowOpenEndSubPrivateSubCommand2_Click()CommonDialog1.ShowSaveEndSubPrivateSubCommand3_Click()CommonDialog1.ShowColorEndSubPrivateSubCommand4_Click()CommonDialog1.ShowFontEndSub分别写出int(Rnd)和fix(Rnd)的值PrivateSubCommand1_C
4、lick()Text1.Text=Int(Rnd)Text2.Text=Fix(Rnd)EndSub设计一个水平滚动条HScroll1，表示范围为1~1000，拖动后其值显示在label1中（说明：先把HScroll1的属性Value的最小值min设置为1，最大值max设置为1000）PrivateSubHScroll1_Change()Label1.Caption=HScroll1.ValueEndSub使用对话框函数Msgbox()输出计算球体的体积(V=4/3*R^3)。PrivateSubCommand1_Click()Constpi=3.1415
5、926DimRAsIntegerR=Val(Text1.Text)V=4/3*pi*R*R*RMsgBox"球的体积为："&VEndSub使用对话框函数InputBox()输入英文字母，按“转大写”按钮，文本变为大写，按“转小写”按钮，文本变为小写，使用对话框函数Msgbox()输出转换结果。PrivateSubCommand1_Click()DimAAsStringA=InputBox("请输入小写字母","大写字母输入框")B=UCase(A)MsgBox""&BEndSubPrivateSubCommand2_Click()DimCAsStringC
6、=InputBox("请输入大写字母","小写字母输入框")D=LCase(C)MsgBox""&DEndSub使用对话框函数InputBox()分别输入小时、分、秒，化成共有多少秒，然后用对话框函数Msgbox()输出转换结果。PrivateSubCommand1_Click()DimA,B,C,DAsIntegerA=InputBox("请输入小时","小时")B=InputBox("请输入分","分")C=InputBox("请输入秒","秒")D=A*3600+B*60+CMsgBox"结果为"&DEndSub利用随机函数生成两个4×4的矩阵A和B
7、，要求矩阵的元素值在[10，99]范围内，在Picture1中显示矩阵A，在Picture2中显示矩阵B，以下三角形式将A数组显示在Picture3中，以上三角形式将数组B显示在Picture4中。（说明：“U”为空格键）Dima(1To4,1To4),b(1To4,1To4),i%,j%PrivateSubPicture1_Click()Fori=1To4Forj=1To4a(i,j)=Int(Rnd()*90+10)Picture1.Printa(i,j);"U";NextjPicture1.PrintNextiEndSubPrivateSubPict
8、ure2_Click()Fori=1To4Forj=1To4b(i
