انتخاب رندوم چند عدد

[pedram_ns]

سلام دوستان
کدی رو می خوام که اعداد بین 1 تا 9 رو بصورت رندوم و بدون تکرار ایجاد و در متغیرها ذخیره کنه.
گرفتید چی شد می خوام به نه تا کنترل روی صفحه یک عدد بصورت رندم بدم به طوری که دو تا کنترل عدد یکسانی نگیره و هر کدوم یکی از اعداد 1 تا 9 رو بگیره.

[pouyansaraf]

سلام
من برای دادن اعداد رندوم بدون تکرار از این استفاده میکنم
شاید بدردتون بخوره



Dim RandomClass As NewRandom()
Dim RandomNumber(8) As Byte
Dim temp As Byte
Dim i As Byte = 0
While i < 9
temp = RandomClass.Next(1, 10)
If Not RandomNumber.Contains(temp) Then
RandomNumber(i) = temp
i += 1
End If
End While


آرایه RandomNumber دارای اعداد 1 تا 9 تصادفی بدون تکرار است

[mostafabestman]

این کد فانکشن هم اعداد بین دو عدد ورودی رو میده والبته تکرار داره ولی میتونی درستش کنی


Private Function RNDx(ByVal X1, ByVal x2)
Dim a
ret:
For i = 0 To Second(Now) + 2
a = Int(Rnd() * x2)
Next i

If a < X1 Or a > x2 Then
GoTo ret
Else
RNDx = a
End If
End Function

برای استفاده اینطور عمل کن

Rndx(1,9)

یا
RndX(10,20)