VB6.0中的Rnd函數可以產生0到1之間的數（0，1），我們可以用這個函數來模擬福利彩票號碼的產生，但是在操作過程中，每次產生的號碼序列都相同，接下來就介紹如何用隨機種子Randomize避免這一現象。
工具/原料
VB6.0
計算機(Win7系統)
方法/步驟
打開VB6.0軟件，新建一個工程，在窗體中添加一個Label控件，並將其名字改為“Lbl1”.
雙擊窗體，進入代碼編寫窗口，在窗體的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
關閉代碼編輯窗口，按下F5鍵，運行剛剛輸入的代碼。結果Label控件中生成了10個隨機數。記下這幾個隨機數，然後單擊窗體關閉按鈕，退出程序運行。
再次按下F5鍵運行程序，發現Label控件中產生10個隨機數與上次記下的一模一樣，這不是我們想要的結果(福彩號碼每次下注號碼不一樣)。
雙擊窗體，進入代碼編寫窗口，在窗體的Form_Load事件做如下修改：
將語句'Randomize的註釋符號分號（'）去掉。
然後按F5再次運行程序，產生的隨機數序列如圖所示，與上次產生的隨機數不同了，這樣就達到了每次產生的隨機數序列不同的效果。
注意事項
要用RND函數產生不同隨機數，必須配合隨機種子Randomize一起使用。
隨機種子Randomize必須放在RND函數之前，控制RND函數隨機數的產生。