好累...
Dim sum As Integer
Dim i As Integer
Private Sub Command1_Click()
sum = 0
For i = 1 To 10
i = i + 1
Randomize
a = Int(Rnd * 1000)
sum = sum + a
MsgBox "10个随机数和为:" & sum
Next
Do
Randomize
a = Int(Rnd * 1000)
sum = sum + a
i = i + 1
Loop
MsgBox "10个随机数和为:" & sum
i = 1
Do
Randomize
a = Int(Rnd * 1000)
sum = sum + a
i = i + 1
Loop Until i > 10
MsgBox "10个随机数和为:" & sum
End Sub