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

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

2、双击窗体，进入代码编写窗口，在窗体的Form_Load事件中输入以下代码：

Private Sub Form_Load()

Dim a As Integer, i As Integer

   'Randomize

    For i = 1 To 10

        a = Int(Rnd * 90) + 10

        Lbl1.Caption = Lbl1.Caption & "　" & a

    Next i

End Sub

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

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

5、双击窗体，进入代码编写窗口，在窗体的Form_Load事件做如下修改：

将语句'Randomize的注释符号分号（'）去掉。

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