vb随机数产生公式？如要产生m 到 n 之间的随机数该怎么办？要详细的公式！

Question

如题所述

Answer 1

Dim m As Integer, n As Integer, r As Integer
m = 1
n = 5
Randomize '随机数初始化声明
'再用Rnd函数产生随机数
'如果产生一个N到M之间的随机数（n>m，包含n，m）表达式可为；
r = Int(Rnd * (n - m + 1) + m)
MsgBox r

Answer 2

如果产生的结果包含m和n：
Int(Rnd * (n - m + 1)) + m
如果产生的结果不包含m和n：
Int(Rnd * (n - m - 1)) + m + 1
包含m，不包含n：
Int(Rnd * (n - m)) + m
包含n，不包含m：
Int(Rnd * (n - m)) + m + 1

Answer 3

int(rnd*(n-m)+m)（包括m，但不包括n）
int(rnd*(n-1-m)+m)（包括m，n）

Answer 4

Dim m As Integer, n As Integer, r As Integer
m=inputbox("请输入一个较大的数")
n=inputbox ("请输入一个较小的数") ' 这里的输入只是要把大数赋给M,小数赋给N
r=fix(rnd*m)+n
Msgbox str(r)

Answer 5

int(上界-下界+1）*rnd+下界