学步园

Dim MyValue  '定义一个随机数
Dim i
Randomize  '初始化
For  i=0 to 100
  MyValue = int( (10000-1000+1)*Rnd+1000)   '生产最大值为10000最小值为1000的随机数
  print MyValue
Next