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