Dim sum As Integer
Dim i As Integer
Dim a As Integer
Private Sub Command1_Click()
sum=0
For i = 1 To 10
Randomize
a=Int(1000*Rnd)
sum=sum+a
Next
MsgBox"10个随机数和为:"&sum
Do While i < = 10
Randomize
a=Int(1000*Rnd)
sum=sum+a
MsgBox"10个随机数和为:"& sum
Loop
End Sub
Option Explicit
Private Sub Command1_Click()
Dim i As Integer
Dim a(10) As Integer
Dim sum As Integer
Randomize
For i= 1 To 10
a(i)=Int(Rnd*1000)+1
sum=sum+a(i)
Next i
Print sum
End Sub
Dim sum As Integer
Dim i As Integer
Dim a As Integer
Private Sub Command1_Click()
sum=0
For i=1 To10
Randomize
a=Int(1000*Rnd)
sum=sum+a
MsgBox"10个随机数为:"&sum
Next
End Sub