VB怎么获取指定范围的随机数

Question

Int((上限 - 下限 + 1) * Rnd + 下限)
实验结果似乎没用，求解

Answer 1

Option ExplicitPrivate Sub Form_Load()
Dim i As Byte
For i = 1 To 10
    Randomize
    Debug.Print Int(10 * Rnd) + 1
Next
End Sub

Answer 2

写错了，应该是：
Int((上限 - 下限 + 1) * Rnd） + 下限

Answer 3

求介于m~n的随机数：
int(rnd*(m-n+1))+m

Answer 4

将Randomize放到for上面，否则你会发现在数据量大时会有周期性的重复。