十个随机数求和 二

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