VB6.0中随机种子Randomize的运用

VB6.0中的Rnd函数可以产生0到1之间的数（0，1），我们可以用这个函数来模拟福利彩票号码的产生，但是在操作过程中，每次产生的号码序列都相同，接下来就介绍如何用随机种子Randomize避免这一现象。

操作方法

（01）打开VB6.0软件，新建一个工程，在窗体中添加一个Label控件，并将其名字改为“Lbl1”.

（02）双击窗体，进入代码编写窗口，在窗体的Form_Load事件中输入以下代码：Private Sub Form_Load()Dim a As Integer, i As Integer'RandomizeFor i = 1 To 10a = Int(Rnd * 90) + ion = ion & "　" & aNext iEnd Sub

（03）关闭代码编辑窗口，按下F5键，运行刚刚输入的代码。结果Label控件中生成了10个随机数。记下这几个随机数，然后单击窗体关闭按钮，退出程序运行。

（04）再次按下F5键运行程序，发现Label控件中产生10个随机数与上次记下的一模一样，这不是我们想要的结果(福彩号码每次下注号码不一样)。

（05）双击窗体，进入代码编写窗口，在窗体的Form_Load事件做如下修改：将语句'Randomize的注释符号分号（'）去掉。

（06）然后按F5再次运行程序，产生的随机数序列如图所示，与上次产生的随机数不同了，这样就达到了每次产生的随机数序列不同的效果。

特别提示

要用RND函数产生不同随机数，必须配合随机种子Randomize一起使用。

随机种子Randomize必须放在RND函数之前，控制RND函数随机数的产生。