VB上机习题一.docVIP

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 + x Next i a = 总合为 CStr(sum) MsgBox a End Sub Private 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 Select Next i a = 总合为 CStr(sum) MsgBox a End Sub 2、求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 x Next i a = 10个3位正整数奇数的和为： CStr(sum) MsgBox a End Sub Private 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 Select Next i a = 10个3位正整数奇数的和为： CStr(sum) MsgBox a End Sub 3、编写程序，打印如图1所示图形。 图1 Private 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 Print Next i End Sub 1—100之间自然数的平方和，程序参考界面如图2所示： 图2 Private Sub Form_Click() Dim i, x, sum For i = 1 To 100 x = 1 + x sum = sum + x ^ 2 Next i Text1.Text = Str(sum) End Sub 5、输入时间（小时、分和秒）然后使用输出消息框输出总计多少秒。使用文本框输入数据，使用消息框输出计算结果，程序运行界面如图3、4所示： 图3 图4 Private 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 + s c1 = Chr(13) + Chr(10) a = CStr(h) 小时 CStr(m) 分 CStr(s) 秒 c1