VB上机练习题(一).doc

VB上机练习题(一)1、求10个三位正整数中的偶数之和，正整数用随机函数Rnd产生，或由InputBox函数输入。Dim i, sum, x%, a$Private Sub Command1_Click()For i = 1 To 10 x = Int(Rnd * (999 - 100 + 1) + 100) If x 1000 And x 99 And x Mod 2 = 0 Then sum = sum + xNext ia = 总合为 CStr(sum)MsgBox aEnd SubPrivate Sub Command2_Click()For i = 1 To 10 c1 = Chr(13) + Chr(10) msg1 = 请输入第 i 个三位正整数 msg2 = 然后按回车键 msg3 = 或者单击“确认”按钮 msg = msg1 + c1 + msg2 + c1 + msg3 x = Val(InputBox(msg)) Select Case x Case 100 To 999 If x Mod 2 = 0 Then sum = sum + x Case Else MsgBox 请输入一个三位正整数！ End SelectNext ia = 总合为 CStr(sum)MsgBox aEnd Sub2、求10个三位正整数中的奇数之和，正整数用随机函数Rnd产生，或由InputBox函数输入。Dim i, x, sum%, a$Private Sub Command1_Click()For i = 1 To 10 x = Int(Rnd * (999 - 100 + 1) + 100) If x 99 And x 10000 And x Mod 2 = 1 Then sum = x + sum Print xNext ia = 10个3位正整数奇数的和为： CStr(sum)MsgBox aEnd SubPrivate Sub Command2_Click()For i = 1 To 10 msg1 = 请输入第 CStr(i) 个3位正整数 msg2 = 然后按回车键 msg3 = 或者点击“确定”按钮 c1 = Chr(10) + Chr(13) msg = msg1 + c1 + msg2 + c1 + msg3 x = Val(InputBox(msg)) Select Case x Case 100 To 999 If x Mod 2 = 1 Then sum = sum + x Case Else MsgBox 请输入三位正整数！ End SelectNext ia = 10个3位正整数奇数的和为： CStr(sum)MsgBox aEnd Sub3、编写程序，打印如图1所示图形。图1Private Sub Form_Click()Dim i%, j%For i = 1 To 5 Print Tab(15 - i); For j = 1 To (2 * i - 1) Print *; Next j PrintNext iEnd Sub1—100之间自然数的平方和，程序参考界面如图2所示：图2Private Sub Form_Click()Dim i, x, sumFor i = 1 To 100 x = 1 + x sum = sum + x ^ 2Next iText1.Text = Str(sum)End Sub5、输入时间（小时、分和秒）然后使用输出消息框输出总计多少秒。使用文本框输入数据，使用消息框输出计算结果，程序运行界面如图3、4所示： 图3 图4Private Sub Command1_Click()Dim h, m, s%, sum, a$h = Val(Text1.Text)m = Val(Text2.Text)s = Val(Text3.Text)sum = h * 3600 + m * 60 + sc1 = Chr(13) + Chr(10)a = CStr(h) 小时 CStr(m) 分 CStr(s) 秒 c1 总计： CStr(sum) 秒MsgBox aEnd SubPrivate Sub Command2_Click()EndEnd Sub6、找出在1～1000中同时满足被7