VB 生成不重複隨機數字源碼

Private Sub Command1_Click()

Dim n(), m, j

m = 11

 

Rndm n(), m

 

For j = 1 To UBound(n)

List1.AddItem n(j)

Next

 

End Sub

 

Private Sub Rndm(n() As Variant, m As Variant)

Dim k, j

ReDim n(1)

n(1) = Int((Rnd * m) + 1)

 

Do While (1)

k = Int((Rnd * m) + 1)

For j = 1 To UBound(n)

    If k = n(j) Then Exit For

Next

 If j > UBound(n) Then

 ReDim Preserve n(UBound(n) + 1)

 n(UBound(n)) = k

 End If

 If UBound(n) = m Then Exit Do

Loop

End Sub