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