10数求和

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 To 10
        Randomize
        a = Int(1000 * Rnd)
        sum = sum + a
        MsgBox "10个随机数和为：" & sum
        
        Next
        
       
        
End Sub