ایجاد اعداد رندوم بدون تکرار

[behdadsoft]

سلام

من کد زیر رو از اینترنت پیدا کردم که اعداد رندوم بین 1 تا 6 رو بدن تکرار ایحاد میکنه ولی من میخواستم بدونم روش دیگه ای هم برای انجام این کار وجود داره یا خیر.

با تشکر

for a = 1 to 6 Start:
tmp = Random(1,6)
for b = 1 to 6
if tmp = rnd2[b]
goto Start
endif
next b
rnd2[a] = tmp
next a

[scarce]

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

5 عدد تصادفی بدون تکرار از 1 تا 6



Dim r As New List(Of Integer)
Dim rg As New Random
Dim rn As Integer

Do
rn = rg.Next(1, 6)
If Not r.Contains(rn) Then

r.Add(rn)
End If
Loop Until r.Count = 6