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

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

好的程序来了,自己写的,已经验证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 则是随机数范围的下限。

rnd产生一个[0,1)的随机数.如果你要产生一个5到10的随机数,则使用以下代码

randomize

msgbox "产生一个1到10的随机数: "  & int(rnd*(10-5+1)+5)

就可以了

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