求VB的生成随机数函数

来源：百度知道编辑：UC知道时间：2024/05/31 05:22:06

如题
VB里带的函数RND是假随机
即每次运行程序随机产生的数都一样
那怎么办?

调用一次 Randomize Timer 语句就没问题了～

Randomize

随机数种子

需要各随即种子，一般用系统时间

先播randomize
然后再用ran()

Private Sub Form_Click()
Randomize Timer '~~~~此处为以系统时间的总秒数为随机种子初始化
Print Int(Rnd * 10 + 1)
End Sub

'随机打印1~10的数字

romdominze