Private Sub Command1_Click()
Sum = 0
For i = 1 To 10
Randomize
a = Int(1000 * Rnd)
Sum = Sum + a
MsgBox "10个随机数和为:" & Sum
Next
End Sub
Sum = 0
For i = 1 To 10
Randomize
a = Int(1000 * Rnd)
Sum = Sum + a
MsgBox "10个随机数和为:" & Sum
Next
End Sub