Dim sum As Integer
Dim i As Integer
Dim a As Integer
Private Sub command1_click()
sum = 0
For i = 1 To 10
Randomize
a = Int(1000 * Rnd)
sum = sum + a
MsgBox "10个随机数和为:" & sum
Next
![]()
Dim i As Integer
Dim a As Integer
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