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函式隨機數的產生。