本文介绍了一个使用VBA编写的简单程序，该程序能够生成并显示一系列随机数。通过定义子过程并在Command1_Click事件中调用，程序实现了在按钮点击后生成15个介于0到999之间的随机整数，并依次打印这些数值。
Private Sub Command1_Click()
Font.Size = 30
Dim n As Integer
Dim slerdum(15) As Integer
n = 1
While n <= 15
slerdum(n) = Int(Rnd * 1000)
n = n + 1
Wend
n = 1
While n <= 15
Print slerdum(n)
n = n + 1
Wend
Font.Size = 30
Dim n As Integer
Dim slerdum(15) As Integer
n = 1
While n <= 15
slerdum(n) = Int(Rnd * 1000)
n = n + 1
Wend
n = 1
While n <= 15
Print slerdum(n)
n = n + 1
Wend
End Sub
终于没有白敲
扫一扫
222
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
