VB6.0中的Rnd函数可以产生0到1之间的数（0，1），我们可以用这个函数来模拟福利彩票号码的产生，但是在操作过程中，每次产生的号码序列都相同，接下来就介绍如何用随机种子Randomize避免这一现象。工具/原料moreVB6.0计算机(Win7系统)方法/步骤1/6分步阅读

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

2/6

双击窗体，进入代码编写窗口，在窗体的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/6

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

4/6

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

5/6

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

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

6/6

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

注意事项

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

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

randomize