Dim n As Integer
Dim a(10) As Integer
Dim sum As Integer
Private Sub Command1_Click()
sum = 0
n = 1
Do
Randomize
a(n) = Int(Rnd * 1000)
sum = sum + a(n)
n = n + 1
Loop Until n > 10
Print sum
End Sub
随机10个数和 六
本博客介绍了一个使用VBA编写的简单程序，该程序通过Command1按钮触发，生成10个随机整数并将它们累加求和。程序首先定义了必要的变量类型，然后在点击事件中通过循环实现随机数生成与求和，并最终打印总和。
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
