十个随机数字

Dim sum As Integer
Dim i As Integer

Dim a As Integer

在command1中
第一种：
Private Sub Command1_Click()
 
  sum = 0
  For i = 1 To 10
      Randomize
      a = Int(1000 * Rnd)
      sum = sum + a
      MsgBox "10个随机数和为：" & sum
  Next

     Do While i <= 10
    Randomize
    a = Int(1000 * Rnd)
    sum = sum + a
    MsgBox "10个随机数和为：" & sum
  Loop
 
End Sub


第二种
Private Sub Command1_Click()
 
  sum = 0
  For i = 1 To 10
      Randomize
      a = Int(1000 * Rnd)
      sum = sum + a
      i=i+1
  Next
   MsgBox "10个随机数和为：" & sum
  Do While i <= 10
    Randomize
    a = Int(1000 * Rnd)
    sum = sum + a
    i = i + 1
  Loop
  MsgBox "10个随机数和为：" & sum
End Sub


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


第五种
Private Sub Command1_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

  Dim t As Integer
  For Each t In a
   s = s + t
  Next

  Print s

End Sub




六：

Private Sub Command1_Click()
Cls
Font.Size = 70
Print f(100)

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