随机生成10个数并求和方法二

Private Sub Command1_Click()

Cls

Dim n As Integer, s As Integer

Dim a(10) As Integer

n = 1

While n <= 10

a(n) = Int(Rnd * 1000)

n = n + 1

Wend

n = 1

While n <= 10

Print a(n)

n = n + 1

Wend

s = 0

n = 1

While n <= 10

s = s + a(n)

n = n + 1

Wend

Print s

End Sub