[fireswored1]

السلام عليكم ورحمة الله وبركاته

اخوتي الاعزاء

الان قمت بوضع الاسئلة والاجاات في مصفوفة ولكن الاسئلة والاجابات تكرر فاحتاج كود لعدم تكرار استدعاء نفس السؤال مرفق الكود المستخدم

كود :

Dim Nran As New Random
Dim Qus(), Rep(), Rarr() As String
Dim Questions, Reponses, LabPos, picPos, TxtBox As New ArrayList
Qus = {" كم عدد الجيوب الأنفية في أنف الإنسان؟", "ما هو اسم اعلى جبل في قارة افريقيا؟", "ما هو ناتج ضرب 9و 2 ؟", "ما هو ناتج جمع 6و4؟",
     "شيء كلما زاد كلما أنقصنا منه؟", "كم عدد الأشهر الحرم في الإسلام؟", "كم عدد الخلفاء الراشدين؟", "ماذا يدعى الخال الوحيد لأولاد عمتك؟",
      "ما هو الشيء الذي يقوم برؤية كل شيء ولا يوجد به عيون؟", "عاصمة الهند هي؟ ", "حيوان يمكنه أن يخرج معدته إلى الخارج فمن هو؟",
      "من قام ببناء أبو الهول؟", "أول عملة إسلامية هي؟", "ما هو أكبر حيوان على وجه الأرض؟ ", "كم عدد الألوان في قوس قزح؟",
      "ما هي عاصمة مصر؟", "كم عدد الأرجل التي يمتلكها العنكبوت؟", "ما هي الفاكهة التي تحتوي على نسبة عالية من فيتامين سي؟", "ما هو الكوكب الذي يعرف بـ الكوكب الأحمر؟", "ما هو الحيوان الذي يستطيع الطيران ولكنه ليس طائرًا؟", "ما هي أسرع سمكة في المحيط؟", "كم عدد الأشهر التي تحتوي على 28 يومًا؟",
      "ما هو الحيوان الذي يطلق عليه لقب صديق الإنسان؟", "من هو اول رئيس جمهورية للجزائر؟", "مما يتكون فريق كرة السلة؟", "ما المدينة التي تسمى بمدينة الضباب؟", "ما الشئ الذي له عين ولا رأس له؟", "ما اسم شيخ المرسلين؟", "ما هي أكبر دولة عربية من حيث المساحة؟",
      "ثاني أكبر دولة عربية من حيث المساحة هي؟", "أصغر دولة عربية من حيث المساحة ما هي؟", "ما هو الكوكب التي يكون مميز باللون الازرق؟", "في أي مدينة توجد ساعة بيج بن الشهيرة؟", "شيء ينقص كلما يزيد؟", "دولة بها الكثير من الجزر وتكون في شكل هلال فما هو اسمها؟", "حيوان يدعى أم قشعم فمن هو؟",
      "مرض تسبب في موت نصف سكان قارة أوروبا فما هو؟", "أين تقع أطول شجرة في العالم؟", "كم عدد قارات العالم؟", "ما هو الحيوان الذي يُعتبر رمزًا للحكمة؟", "الكريم هو نقيض :", "الجزر هو ؟", "كلمة الضرير  تعني؟", "إحدي هذه الكلمات تتوج المنتصر:", "قد امام الفعل الماضي تفيد :",
      "إحدي هذه الدول ليست لها حدود مع العراق ؟", "حيوان يطلق عليه ملك الغابة هو", "مطرب عربي من اغنياته عندك بحرية؟", "العملة الموحدة لدول الإتحاد الأوربي هي ؟", "كم دقيقة في الساعة الواحدة", "من أدوات القصاب؟", "ممثلة لقبت بسندريلا الشاشة العربية؟", "ما هو نوع الشجرة الموجودة علي العلم اللبناني؟",
      "ماذا يطلق علي الممثل المشهور", "ما هي الرياضة التي يستخدم الاعب بها مضرب", "اين تقع منارة الحدباء", "لعبة عراقية شعبية شهيرة تمارس في ليالي شهر رمضان ويستخدم الاعبون بها المحبس فما هي", "وحدة الامبير هيا قياس لـــ ؟"}
Rep = {"8 * 6*7 * 9", "كليمنجارو * مزالة * غورونغوسا *آير", "18*20*14 * 16",
      "10 * 8 * 11 * 12", "الحفرة * البحر * العمر *النار", "4أشهر * 5أشهر*6أشهر* 3أشهر",
      "4 * 6 * 5 * 10", "والدك * عمك * خالك * جدك", "المرآة * الدبوس * المسمار * الماء",
      "نيودلهي * جيبور * كشمير * شيملا", "نجم البحر * الحبار * الجمبري * الجمبري", "خفرع * خوفو * من قرع * احمص",
      "الدينار الذهبي * الدينار الفضي * الجنيه*المليم", "الحوت الأزرق * الفيل * وحيد القرن * الزرافة", "7 * 8 * 6 * 10", "القاهرة * الإسكندرية * المنيا * اسوان",
     "8 * 10 * 7 * 6", "البرتقال * العنب *البطيخ * الموز", "المريخ*المشتري * الزهرة* عطارد", "الخفاش*النسر* النورس * النحلة", "سمكة الشراع*القرش*الحوت*قنديل البحر",
     "12*10*1*8", "الكلب*القطة*الحمار*البقرة", "أحمد بن بل*هواري بومدين*رابح بيطاط*اليامين زروال", "5*7*4*6", "لندن*ليدز*ليفربول*بريستول", "الابرة*المسمار*المشط*الخاتم",
     "نوح عليه السلام*اسماعيل عليه السلام*ابراهيم عليه السلام*يعقوب عليه السلام", "الجزائر*مصر*السعودية*المغرب", "السعودية*الجزائر*المغرب*السودان", "البحرين*الأردن*الامارات*تونس",
     "الأرض*عطارد*الزهرة*نبتون", "لندن*جنيف*بريستول*ليدز", "العمر*الحفرة*النار*البحر", "جزر القمر*جزر المالديف*جزر مالطا*جزيرة بنغهو", "أنثى النسر*ذكر النسر*اليمامة*النورس",
     "الطاعون*الايدذ*الحمي*الضغط", "كاليفورنيا*فرانكفورت*سياتل*تورونتو", "7*9*8*6", "البومة*اليمامة*الحمامة*النسر", "البخيل*الدليل*الذليل*العليل", "تراجع البحر*تبخر الماء*هدوء البحر* ارتفاع الموج",
     "الاعمي*الاصم*الابكم*الأعور", "الغار*المزمار*النار*الجلنار", "التأكيد*التسديد*التمديد*التهديد", "لبنان*سوريا*الأردن*السعودية", "الأسد*الارنب*الفأر*القط", "وديع الصافي*راغب علامة*عاصي الحلاني*جورج وسوف",
     "اليورو*الدولار*الفرنك*المارك", "60*20*70*10", "الطبر*المفك*المنشار*المطرقة", "سعاد حسني*نادية لطفي*مني زكي*يسرا", "الأرز*اللبلاب*الصنوبر*السرو", "نجم*شمس*قمر*هلال", "التنس*الجري*السباحة*كرة السلة",
     "الموصل*الانبار*واسط*صلاح الدين", "محيبس*جعاب*صكلة*شرطي حرامي", "التيار الكهربائي*الجهد الكهربائي*المقاومة الكهربائية*الحث الكهربائي"}
For Each item As String In Qus
   Questions.Add(item)
Next

For Each item As String In Rep
   Reponses.Add(item)
Next

' اختيار عشواي للاسئلة*-
Dim Nq = Nran.Next(0, Questions.Count)
lqus.Text = Questions(Nq)
Questions.RemoveAt(Nq)
' تقسيم الاجابات على الخاناات الارابع
Rarr = Reponses(Nq).ToString.Split("*")
lcurct.Text = Rarr(0)
ListBox2.Items.Clear()
ListBox2.Items.Add(Rarr(0))
ListBox2.Items.Add(Rarr(1))
ListBox2.Items.Add(Rarr(2))
ListBox2.Items.Add(Rarr(3))
Reponses.RemoveAt(Nq)
Dim random0 As New Random()
Dim shuffledAnswers = ListBox2.Items.Cast(Of String)().OrderBy(Function() random0.Next()).ToList()
ListBox2.Items.Clear()
ListBox2.Items.AddRange(shuffledAnswers.ToArray())

For i = 1 To 4
   Me.Controls(String.Format("lans{0}", i)).Text = ListBox2.Items(i - 1).ToString

Next