VB上机练习题(一).pdfVIP

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 4 、 1— 100 之间自然数的平方和，程序参考界面如图