SAM_
- سورية
1مشاركة
0السمعة
1موضوع منشور
5 أكتوبر 2008تاريخ الانضمام
29 مارس 2012آخر زيارة
271مشاهدة للملف
- كود لتوليد أرقام عشوائية دون تكرار
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 'سيتم تعديل عنصر المصفوفة بحيث يكون قيمة العنصر 'تساوي الصح أو الخطأ البوليان…