本文介绍了两种使用VBA在Visual Basic for Applications环境中生成并计算10个随机数之和的方法。第一种方法通过For循环从10递减到1，每次迭代生成一个介于0到999之间的随机整数并累加；第二种方法则采用Do Until循环，不断生成随机数直至累计生成了10个随机数，并计算总和。
《六》
Private Sub Command1_Click()
Dim i As Integer
Dim s As Integer
Dim sum As Integer
sum = 0
For i = 10 To 1 Step -1
a = Int(Rnd * 1000)
sum = sum + a
Next
MsgBox “10个随机数的和为:” & sum
End Sub
《七》
Private Sub Command1_Click()
Dim i As Integer
Dim s As Integer
Dim sum As Integer
i = 1
Do Until i > 10
a = Int(1000 * Rnd)
sum = sum + a
i = i + 1
Loop
MsgBox “10个随机数的和为:” & sum
End Sub
扫一扫
1906
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
