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

来源：百度知道 编辑：UC知道 时间：2024/06/04 02:45:04
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 则是随机数范围的下限。

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

randomize 随即前加这个