您的位置:首页 > 其它

十个随机数求和 一

2016-04-14 16:49 337 查看
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
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: