تکه کد: انتخاب اعداد تصادفی با استفاده از تابع Rnd اما بدون ایجاد اعداد تکراری

[daria 15]

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

Sub rnd2(a As Int,b As Int, lis As List) As Int
Do While lis.Size<(b-a+1)  
Dim ran As Int = Rnd(a,b)   
If lis.IndexOf(ran)=-1 Then    
lis.Add(ran)      
Return ran      
Exit      
End If    
Loop  
End Sub

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

dim list1 as list
list1.Initialize
For i=a To b
t=rnd2(a,b,list1)
Next