Dim n As Integer
Dim a(10) As Integer
Dim sum As Integer
Private Sub Command1_Click()
sum = 0
For n = 1 To 10
Randomize
a(n) = Int(Rnd * 1000)
sum = sum + a(n)
Next n
Print sum
End Sub
Dim a(10) As Integer
Dim sum As Integer
Private Sub Command1_Click()
sum = 0
For n = 1 To 10
Randomize
a(n) = Int(Rnd * 1000)
sum = sum + a(n)
Next n
Print sum
End Sub