十个随机数求和 一

来源:互联网 发布:popo聊天软件 编辑:程序博客网 时间:2024/05/21 07:50
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
0 0