随机生成10个数（使用9种循环）

《六》

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