如何取得不重覆的亂數？

　　如何取得不重覆的亂數？很多網友都問這個問題！其實並不難，只要迴圈做得好就沒問題！以下是六合彩的模擬範例（在1-45中，取出七個不重覆的亂數）：

Option Explicit

Private Sub Command1_Click()
Dim Num(6) As Integer
Dim i As Integer
Dim a As Integer
　Randomize Timer
　For i = 0 To 6
RA:
　　Num(i) = Int(Rnd * 45 + 1)
　　If i > 0 Then
　　　For a = 0 To i - 1
　　　　If Num(i) = Num(a) Then GoTo RA
　　　Next a
　　End If
　　Print Num(i);
　Next i
　Print
End Sub

上一頁