请问如何获得5--8位的随机数啊，谢谢大家

[xinshou1979330]

请问如何获得5--8位的随机数啊，谢谢大家
请举例说明谢谢大家 啊

[minajo21]

Randomiz

Int((upperbound - lowerbound + 1) * Rnd + lowerbound)


intTemp = Int((8 - 5 + 1) * Rnd + 5)

[ehom]

Int(Rnd*Int(4*Rnd()+5)*10)

[Tenner]

Dim lngNumber As Long

Randomize Timer

lngNumber = CLng(Rnd * 99990000#) + 10000

[maskzha]

up

[ehom]

没怎么用过VB,不知道VB中有算次方的函数没有?

n=1
for i=1 to Int(4*Rnd+5)
n=n*10
next
Int(Rnd*n)

[xinshou1979330]

(Int((9 * Rnd) + 1)))*10000+(Int((9 * Rnd) + 1)))*1000.......

[xinshou1979330]

发送者 Tenner 发送时间 2003-2-14 21:36:28 删除 回复
内容 你好
要解决你问的问题，首先要理解 RND 函数的作用
RND 函数会返回一个在0到1之间的小数
所以如果你想要等到一个大小在 a 与 b 之间的随机数，可以用以下公式
Rnd * (b - a + 1) + a
因此你的问题就转换为：生成一个在10000到99999999之间的数
所以用 Rnd * (99999999 - 10000 +1) 也就是 99990000 了
之所以在后面加上#，是因为99990000这个数超过了Integer型的范围，如果你不加，VB会出现“溢出”错误，在后面加#表示这是个Double型的数（变量也可以）
至于你说的这段代码只会产生8位的数，原因在于从10000到99999999之间的数中10000到9999999只占其中的一小部分，所以才会让你觉得只产生8位的，你如果设一个1000次的循环看看，就知道5-7位的一样会生成了
如果有什么问题可以再问

----------------------------------------------------------------
原贴内容：
lngNumber = CLng(Rnd * 99990000#) + 10000

朋友这是你给我写的代码
请问一下为什么 在99990000后面加个#号呢

不加也可以产生一个随机数啊
在有就是 99990000#的意义是什么
为什么写这个数字别的不可以吗？？？
谢谢你
http://expert.csdn.net/Expert/topic/1426/1426853.xml?temp=.741192