اعداد تصادفی با استفاده از تابع Rnd بدون اعداد تکراری(b4a)
تابع اعداد تصادفی :
Sub vfrnd(a As Int,b As Int, lis As List) As Int Do While lis.Size<(b-a+1) Dim random As Int = Rnd(a,b) If lis.IndexOf(random)=-1 Then lis.Add(random) Return random Exit End If Loop End Sub
برای استفاده :
dim lis as list lis.Initialize For i=a To b t=vfrnd(a,b,lis) Next
موفق باشید..
VIP
