سوال در مورد اعداد تصادفی

[hamed_Arfaee]

سلام

برای تکراری نبودن اعداد باید تو آرایه ثبت بشن :

کد:

Dim a(100) As Integer
Private Sub Command1_Click()
Dim s As Integer
For i = 1 To 100
    Do
        s = Int(Rnd() * 1001) + 1
    Loop While (InArray(s))
    a(i) = s
    Next
End Sub
Private Function InArray(X As Integer) As Boolean
Dim res As Boolean: res = False
For i = 1 To UBound(a)
    If a(i) = X Then
        res = True
    End If
Next
InArray = res
End Function