Rnd生成的是0~1的随机数你这句应该为 vbs n = Int( 200*Rnd+1000 )200 而不是1200
Randomizeupperbound = 1200lowerbound = 1000a = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)MsgBox a Rnd = [0,1)
取1000-1200之间的随机数应该是Int(200*Rnd+1000)吧。