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 MsgB