Dim Sum As Integer
Dim i As Integer
Dim a As Integer
Private Sub Command1-Click()
sum =0
For i=1To 10 step 2
Randomize
a=Int(1000*Rnd)
sum=sum+a
MsgBox"10个随机数和为:"&sum
Next
Do While i<=10
Randomize
a=Int(Rnd*1000)
sum =sum +a
MsgBox"10个随机数和为:"&sum
Loop
End Sub
我上机操作的程序就是这样,不过现在不能展现出来。