1、打开VB6.0软件，新建一个工程，在窗体中添加一个Label控件，并将其名字改为“Lbl1”.
2、双击窗体，进入代码编写窗口，在窗体的Form_Load事件中输入以下代码：Private Sub Form_Load()Dim a As Integer, i As I荏鱿胫协nteger 'Randomize For i = 1 To 10 a = Int(Rnd * 90) + 10 Lbl1.Caption = Lbl1.Caption & " " & a Next iEnd Sub
3、关闭代码编辑窗口，按下F5键，运行刚刚输入的代码。结果Label控件中生成了10个随机数。记下这几个随机数，然后单击窗体关闭按钮，退出程序运行。
4、再次按下F5键运行程序，发现Label控件中产生10个随机数与上次记下的一模一样，这不是我们想要的结果(福彩号码每次下注号码不一样)。
5、双击窗体，进入代码编写窗口，在窗体的Form_Load事件做如下修改：将语句'Randomize的注释符号分号（'）去掉。
6、然后按F5再次运行程序，产生的随机数序列如图所示，与上次产生的随机数不同了，这样就达到了每次产生的随机数序列不同的效果。
