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 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个三位正整数中的奇数之和，正整数用随机函数Rn