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