Private Sub Command1_Click()
Cls
Dim i As Integer, s As Integer
Dim sum As Integer
For i = 1 To 10 Step 1
Randomize
a = Int(Rnd * 1000)
sum = sum + a
Next
Print "和为" & sum
End Sub
Private Sub Command1_Click()
Cls
Dim i As Integer, s As Integer
Dim sum As Integer
For i = 1 To 10 Step 1
Randomize
a = Int(Rnd * 1000)
sum = sum + a
Next
Print "和为" & sum
End Sub