VB 产生0~1000的随机整数 包不包括1000

Dim minNum As Integer
Dim mazNum As Integer
minNum = 0
maxNUM = 999
RandomNum = minNum + int((maxNUM - minNum) * Rnd())

给定一个最大数和最小数，则生成他们之间的一个随机数
如：上面就是生成一个0~999的随机数

Randomize()
Dim a As Integer = 1000 * Rnd()
------------------------------
a就是 。。。楼上的貌似每次运行出来的随机数都是一样的。。用了Randomize()就不会

公式是
minNum + int((maxNUM - minNum+1) * Rnd)
返回[minNum,maxNUM]区间的随机整数