《六》
Private Sub Command1_Click()
Dim i As Integer
Dim s As Integer
Dim sum As Integer
sum = 0
For i = 10 To 1 Step -1
a = Int(Rnd * 1000)
sum = sum + a
Next
MsgBox “10个随机数的和为:” & sum
End Sub
《七》
Private Sub Command1_Click()
Dim i As Integer
Dim s As Integer
Dim sum As Integer
i = 1
Do Until i > 10
a = Int(1000 * Rnd)
sum = sum + a
i = i + 1
Loop
MsgBox “10个随机数的和为:” & sum
End Sub