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

[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)