VB作业

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
        Next
        
        MsgBox "10个随机数和为: " & sum
        i = 1
        
        Do While i <= 10
           Randomize
           a = Int(1000 * Rnd)
           sum = sum + a

           i = i + 1

        Loop
        
        MsgBox "10个随机数和为: " & sum
        
        
    


     

End Sub

Private Sub Command2_Click()
Cls
Dim n As Integer, s As Integer
Dim a(10) As Integer
n = 1
While n <= 10
a(n) = Int(Rnd * 1000)
n = n + 1
Wend
n = 1
While n <= 10
Print a(n)
n = n + 1
Wend
s = 0
n = 1
While n <= 10
s = s + a(n)
n = n + 1
Wend
Print s


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
        Next
        
        MsgBox "10个随机数和为: " & sum
        i = 1
        
        Do
           Randomize
           a = Int(1000 * Rnd)
           sum = sum + a
           i = i + 1
           Loop While i <= 10
           
        
        MsgBox "10个随机数和为: " & sum
        
        
    


     

End SubDim 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
        i = 1
        
        Do
           Randomize
           a = Int(1000 * Rnd)
           sum = sum + a
           i = i + 1
           Loop Until i > 10
           
           
        
        MsgBox "10个随机数和为: " & 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
        Next
        
        MsgBox "10个随机数和为: " & sum
        i = 1
        
        Do
           Randomize
           a = Int(1000 * Rnd)
           sum = sum + a
           i = i + 1
           Loop
           
           
        
        MsgBox "10个随机数和为: " & sum
        
        
    


     

End Sub

Private Sub Command2_Click()
Cls
Font.Size = 70
Print f(10)

End Sub
Private Function f(x As Integer) As Long
If x = 1 Then
f = x
Else
f = x + f(x - 1)
End If

End Function