فكرة صنع الاسئلة العشوائية

هذا كود مثال، في هذا المثال الأسئلة مخزنة في مصفوفة و هناك مصفوفة أخرى من النوع Boolean لتحديد إذا كان قد تمت الإجابة على السؤال أم لا.

يتم إظهار سؤال كلما ضغط المستخدم على الزر (لا يشمل فكرة العشر ثواني)

لاحظ أنه تم تعبئة قيم مصفوفة الأسئلة أثناء ال Load للبرنامج (بالإمكان إستبدالها بجملة لجلب الاسئلة من قاعدة البيانات)

    Dim q(5) As String
    Dim ans(5) As Boolean

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x As Integer
        Dim rand As New Random

        Do
            x = rand.Next(0, 5)
        Loop While (ans(x))

        MsgBox(q(x))
        'if the user answers correctly set ans(x)=true'

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        q(0) = "First Question?"
        q(1) = "Second Question?"
        q(2) = "Third Question?"
        q(3) = "Forth Question?"
        q(4) = "Fifth Question?"
    End Sub

يتم إظهار السؤال في MsgBox بعد إظهار السؤال عليك وضع الكود الذي يتأكد من الإجابة، و إذا كانت الإجابة صحيحة يجب أن تقوم بوضع القيمة true في عنصر المصفوفة الذي يمثل السؤال الحالي ans(x)

أيضا لاحظ أن ال While تستمر في توليد أرقام عشوائيه إلى أن تجد سؤالا لم يتم الإجابة عليه

------

إذا كنت تريد جلب الأسئلة من قاعدة البيانات سوف يلزمك إستعلام شبيه بالتالي:

Select * From Questions Where Answered=false