كود لتوليد أرقام عشوائية دون تكرار

Dim array1(9) As Boolean

Dim x As Integer = 1

Dim i As Integer = 9

Dim i2 As Integer

Randomize()

While x <= (i + 1) 'سوف يتم الخروج من الحلقة بعد الحصول على عشرة أرقام

i2 = Rnd() * i

'سيتم تعديل عنصر المصفوفة بحيث يكون قيمة العنصر

'تساوي الصح أو الخطأ البولياني فإذا كانت خطأ فهذا يعني أن الرقم

' العشوائي غير موجود فيجب إذن إضافته وإعطاء عنصر المصفوفة قيمة الصح ليتم تجاوزها فيما بعد

If (array1(i2) = False) Then

array1(i2) = True

ListBox1.Items.Add(i2 + 1) 'سوف يضاف الرقم إلى القائمة

x += 1

End If

End While