vb中如何取得随机3位数?

Question

如题所述

Answer 1

rnd()函数返回大于等于0小于1的数，要得到3位数也就是数字在100-999之间，可以这样得到：
int(rnd()*900 + 100)
rnd()*900可以得到0-899的数，加上100就得到100-999之间的数了
公式：
rnd()*(数字上限-数字下限+1) + 数字下限

另外在使用rnd前用randomize初始化随机数种子就可以避免每次输出相同值本回答被提问者采纳

Answer 2

Randomize产生随机数的种子,如果没有这个种子每次产生的随机数是一样的
dim number as integer
number = (100-999)*rnd + 999

Answer 3

Private Sub Command1_Click()
Print Int(Rnd * 900 + 100)
End Sub

Answer 4

CInt(1000 * Rnd())

Answer 5

format(int(rnd()*1000),"000")