[Kamil]

طيب جرب هذا التعديل 

PHP كود :

Dim Nran As New Random()
Dim Questions As New List(Of String)
Dim Reponses As New List(Of String)

' تعريف الأسئلة والأجوبة
Dim Qus() As String = {"كم عدد الجيوب الأنفية في أنف الإنسان؟", "ما هو اسم اعلى جبل في قارة افريقيا؟"}
Dim Rep() As String = {"8 * 6*7 * 9", "كليمنجارو * مزالة * غورونغوسا *آير"}

' تحميل الأسئلة والأجوبة في القوائم
Questions.AddRange(Qus)
Reponses.AddRange(Rep)

' دالة لاختيار سؤال عشوائي
Sub ShowRandomQuestion()
    ' التحقق من وجود أسئلة متبقية
    If Questions.Count = 0 Then
        MessageBox.Show("لا توجد أسئلة متبقية!")
        Return
    End If

    ' اختيار سؤال عشوائي
    Dim Nq As Integer = Nran.Next(0, Questions.Count)

    ' استخراج السؤال والإجابات قبل حذفها
    Dim selectedQuestion As String = Questions(Nq)
    Dim selectedAnswers As String() = Reponses(Nq).Split("*")

    ' حذف السؤال والإجابة من القوائم لتجنب التكرار
    Questions.RemoveAt(Nq)
    Reponses.RemoveAt(Nq)

    ' تعيين السؤال في العنصر المخصص له
    lqus.Text = selectedQuestion
    lcurct.Text = selectedAnswers(0)

    ' إضافة الإجابات إلى ListBox
    Dim shuffledAnswers = selectedAnswers.OrderBy(Function() Nran.Next()).ToArray()
    ListBox2.Items.Clear()
    ListBox2.Items.AddRange(shuffledAnswers)

    ' عرض الإجابات في العناصر المناسبة
    For i As Integer = 0 To 3
        Me.Controls($"lans{i + 1}").Text = shuffledAnswers(i)
    Next
End Sub

' استدعاء الدالة عند الحاجة (مثلاً عند النقر على زر)
Private Sub btnNextQuestion_Click(sender As Object, e As EventArgs) Handles btnNextQuestion.Click
    ShowRandomQuestion()
End Sub