传奇3手游官网:在VB中要生成一个10位的随机数,应该怎么做?

来源:百度文库 编辑:高校问答 时间:2024/04/29 23:17:56

以上几位仁兄忽略了一点:

rnd()实际上是生成一个少于1的数,

如产出 0.01 乘10位再Int处理后,实际只有9位数。
0.001 只有8位数。
0.0001 只有7位数。

所以:
Int(Rnd*9000000000)+1000000000

首先产生一个少于9000000000的数,介于0-89999999999之间,
再上加1000000000,那么就可确保产生1000000000-9999999999之间的随机数啦。

Randomize
DIM SJS AS SINGLE
SJS = Int( Rnd*10000000000)

dim a as double
a=int(Rnd * (10000000000)

dim xx as int
xx=int(Rnd * (99-10+1)) +10