10个随机数相加

1.

Option Explicit

Private Sub Command1_Click()
Cls
Dim i As Integer, Sum As Integer
Dim a(10) As Integer
Randomize
For i = 1 To 10
a(i) = Int(Rnd * 1000) + 1
Sum = Sum + a(i)
Next i
Print Sum

End Sub

2.

Private Sub Command1_Click()
Cls
Dim a(10) As Integer
Dim x As Integer
x = 1
While x <= 10
a(x) = Int(Rnd * 1000)
x = x + 1
Wend
sum = 0
x = 1
While x <= 10
sum = sum + a(x)
x = x + 1
Wend
Print sum

End Sub

3.Dim sum As Integer, i As Integer, a As Integer
Private Sub Command1_Click()
sum = 0
For i = 10 To 1 Step 1
Randomize
a = Int(Rnd * 1000)
sum = sum + a
MsgBox "10个随机数和为：" & sum
Next
Do While i <= 10
Loop
End Sub