Randomize

　　我們計算亂數時，如果不利用Randomize的話，亂數就會重覆：

Private Sub Command1_Click()
    For i = 1 to 5
        A = Int(Rnd*3+1)
       Print A
    Next i
End Sub

結果：
3
2
2
1
1

果然能算出亂數！但不要開心著，因為當您重開程式時，結果都是一樣：

3
2
2
1
1

如何避免亂數重覆呢？很簡單，只要在計算亂數之前加上Randomize就行了！

Private Sub Command1_Click()
    For i = 1 To 5
        Randomize
        A = Int(Rnd * 3 + 1)
        Print A
    Next i
End Sub

結果當然次次都不同了！