为什么vb的随机数都是一样啊

来源：百度知道编辑：UC知道时间：2024/05/30 06:33:04

为什么我用光盘上的vb程序可以得到真正的随机数,每次都不一样,但是我自己编写的随机数程序,得出的随机数都一样,即第一次运行时,随机数是个2,关了从新运行,这个随机数还是2,并且不会变
谢谢

出现这种现象的原因是程序没有用不同的随机数种子来初始化随机数发生器。

如果使用Rnd()函数前没有用不同的随机数种子来初始化随机数发生器，那么同一个程序，在多次运行时，所产生的随机数序列是相同的。

只要使用Randomize语句后，就能保证每次运行所产生的随机数序列是不同的了。以下的程序可以保证每次运行所得的随机数是不同的：

Private Sub Command1_Click()

Dim x As Integer

Randomize

For i = 1 To 100

x = Rnd() * 101

Print Format(x, "@@@@");

If i Mod 20 = 0 Then Print

Next i

End Sub