随机十个数求和4

来源:互联网 发布:环迅网络兼职是真的吗 编辑:程序博客网 时间:2024/06/04 18:39
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(Rnd * 1000)
     sum = sum + a

     MsgBox "10个随机数和为:" & sum
     
     Next
End Sub
0 0
原创粉丝点击