Question

vb rnd随机函数固定产生随机数问题

vb rnd随机函数固定产生随机数，比如int(rnd*100) 产生的总是70 53 57．．．．．． 如何让VB真正产生随机的数字？

Answer 1

好的程序来了,自己写的,已经验证OK!!!

Private Sub Command1_Click()
Randomize
MsgBox Int((100 - 10 + 1) * Rnd + 10)
End Sub

这是一个随机产生10到100之间的随机数的程序,也就是只能产生2位数的!
如果你想产生一个数到另一个数之间的随机数,可以这样做:
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。

Answer 2

rnd产生一个[0,1)的随机数.如果你要产生一个5到10的随机数,则使用以下代码
randomize
msgbox
"产生一个1到10的随机数:
"
&
int(rnd*(10-5+1)+5)
就可以了

Answer 3

在抽随机数之前加入Randomize语句来初始化随机种子，这样就可以了，不然只用默认的种子自然会是同一组随机数

Answer 4

randomize 随即前加这个