Dim MyValue '定义一个随机数
Dim i
Randomize '初始化
For i=0 to 100
MyValue = int( (10000-1000+1)*Rnd+1000) '生产最大值为10000最小值为1000的随机数
print MyValue
Next
Dim i
Randomize '初始化
For i=0 to 100
MyValue = int( (10000-1000+1)*Rnd+1000) '生产最大值为10000最小值为1000的随机数
print MyValue
Next
本文介绍了一段使用VBA在指定范围内生成随机整数的代码示例。通过初始化随机数生成器并使用for循环,该代码能够连续生成101个介于1000到10000之间的随机整数。
3263

被折叠的 条评论
为什么被折叠?



