كيفية استخدام Visual Basic لإنشاء اختبار الاختيار من متعدد

المحتوى

• الاتجاهات

في اختبار الاختيار من متعدد ، يتكون كل سؤال من السؤال نفسه وإجابات مختلفة ، منها سؤال واحد صحيح. يمكنك إنشاء اختبار متعدد الخيارات في Visual Basic باستخدام التسميات لإظهار الأسئلة وأزرار الاختيار للحصول على إجابات محتملة ، بالإضافة إلى عناصر تحكم زر للتنقل خلال المشكلات المختلفة. في التعليمات البرمجية ، استخدم المصفوفات لحفظ الأسئلة والأجوبة المرسلة من قبل المستخدم والاحتفاظ متغير المتغير حتى تعرف السؤال الذي المستخدم موجود فيه. في نهاية الاختبار ، قم بتمييز استجابات المستخدم وعرض النتيجة في النموذج.

الاتجاهات

استخدم Visual Basic لإنشاء عرض الأسئلة والأجوبة الخاص بك (حسنا ، ليس صورة جيدة من ipal من Fotolia.com)

1. افتح مشروع Visual Basic جديد. إضافة اثنين من التسميات ، ثلاثة أزرار الراديو ، وعناصر تحكم زر اثنين إلى النموذج. اسحب التسميتين إلى الأعلى ، مع وضع Label1 أعلى Label2. اسحب RadioButton1 و RadioButton2 و RadioButton3 ومحاذاة رأسياً أسفل التسميات. اسحب الزرين تحت أزرار "الراديو" مع Button1 على اليسار و Button2 على اليمين.

2. اضغط F7 لفتح نافذة التعليمات البرمجية. أدخل الكود التالي على مستوى الفصل:

   الأسئلة المعتمة (2 ، 4) على هيئة سلسلة من الإجابات الخافتة (2) على شكل سلسلة خافتة NumPerg As Integer

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

   
   

3. أدخل الكود التالي:

   الأسئلة الخاصة للحصول على الأسئلة الفرعية () = سلسلة جديدة (،) {{"كم عدد ألوان قوس قزح؟" ، "5" ، "6" ، "7" ، "7" {"من لعب دور البطولة في قراصنة الكاريبي؟" ، "جوني ديب" ، "جون مالكوفيتش" ، "جون كوزاك" ، "جوني ديب" {"ما هي عاصمة ولاية فلوريدا؟" ، "ميامي" ، "تالاهاسي" ، "جاكسونفيل" ، "تالاهاسي"}} End Sub

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

4. أدخل الكود التالي:

   خاص تقييم Sub Test () Dim puntuacao As Integer = 0 For i = 0 To 2 إذا كانت الإجابات (i) = أسئلة (i ، 4) ، ثم يسجل = 1 نهاية إذا كان Label1.Text = "انتهى الاختبار!" Label2.Text = "أنت تضغط" & "& Answers.Length & &" الشبكة & "أسئلة!" RadioButton1.Enabled = False RadioButton2.Enabled = False RadioButton3.Enabled = False Button1.Enabled = False Button2.Enabled = False End Sub

   
   

   يعلن السطر الأول عن روتين فرعي يقوم بتقييم الاختبار. يقوم بإنشاء متغير محلي للحفاظ على النتيجة ثم يقوم بمسح الأسئلة في صفيفه والردود التي يرسلها المستخدم. لكل إجابة يقدمها ، ترتفع النتيجة بمقدار 1. أخيرًا ، تظهر علامات الترقيم وتقوم بإلغاء تنشيط بقية عناصر التحكم.

5. افتح روتين Form1_Load () واكتب التعليمة البرمجية التالية:

   Me.Text = "اختبار الخيارات المتعددة الخاص بي!" GetPerFacts () NumPerg = 1 Label1.Text = "Question" & quesNum & "of" & Answers.Length Label2.Text = Questions (0، 0) Button1.Text = "Previous" Button2.Text = "Next" RadioButton1.Text = أسئلة (0 ، 1) RadioButton2.Text = أسئلة (0 ، 2) RadioButton3.Text = أسئلة (0 ، 3)

   يحدد السطر الأول النص في شريط العنوان. المكالمات التالية في الروتين الفرعي الحصول على أسئلة (). الثالث تهيئة عداد السؤال. يظهر الرابع في أي سؤال المستخدم. الخامس يظهر السؤال الأول على الملصق. السادس والسابع تغيير النص للأزرار اثنين. أدخل الأسطر الثلاثة الأخيرة الخيارات الثلاثة كنص لأزرار الاختيار الثلاثة.

6. افتح الروتين الفرعي Button1_Click () واكتب التعليمة البرمجية التالية

   إذا كان numPerg> 1 ، ثم numPerg - = 1 Label1.Text = "Question" & quesNum & "3" Label2.Text = أسئلة (numPerg - 1، 0) RadioButton1.Text = أسئلة (numPerg - 1، 1) RadioButton2.Text = أسئلة (numPerg - 1، 2) RadioButton3.Text = أسئلة (numPerg - 1، 3) إذا Button2.Text = "Send" ثم Button2.Text = "التالي" End If End If

   هذا هو رمز الزر "السابق". يقوم أولاً بالتحقق مما إذا كان المستخدم قد ضغط على الزر أثناء السؤال الأول. إذا لم يكن الأمر كذلك ، فسيطرح عداد الأسئلة من 1 ويغير نص التسميات وأزرار الاختيار لإظهار السؤال السابق. إذا كان المستخدم في السؤال الأخير ، فإن النص في Button2 يتغير من "إرسال" إلى "التالي".

7. افتح الروتين الفرعي Button2_Click () واكتب التعليمة البرمجية التالية:

   إذا كان RadioButton1.Checked = صواب ، فعليك الرد (numPerg - 1) = RadioButton1.Text ElseIf RadioButton2.Checked = صواب ثم يرد (numPerg - 1) = RadioButton2.Text ElseIf RadioButton3.Checked = صواب ثم يرد (numPerg - 1) = RadioButton3. نهاية النص إذا كان RadioButton1.Focus () إذا كان numPerg <3 ثم numPerg + = 1 Label1.Text = "Question" & quesNum & "of" & Answers.Length Label2.Text = أسئلة (numPerg - 1، 0) RadioButton1.Text = (numPerg - 1، 1) RadioButton2.Text = أسئلة (numPerg - 1، 2) RadioButton3.Text = أسئلة (numPerg - 1، 3) إذا numPerg = 3 ثم Button2.Text = "إرسال" End If Else EvaluateTest نهاية إذا

   هذا هو رمز الزر "التالي". تتحقق الأسطر السبعة الأولى من زر الاختيار الذي اختاره المستخدم وحفظ الإجابة في صفيف الاستجابة. يغير السطر التالي بؤرة التحديد إلى RadioButton1. يتحقق السطر التالي إذا لم يكن المستخدم في السؤال الأخير. إذا لم يكن الأمر كذلك ، فإن الروتين الفرعي يزيد قيمة متغير العداد إلى واحد ويملأ علامات وأزرار الراديو بالمعلومات في السؤال التالي. إذا كان كذلك ، فإنه يغير النص من الزر "التالي" إلى "إرسال". إذا كان المستخدم موجودًا بالفعل في السؤال الأخير ونقر على "إرسال" ، فإن البرنامج يستدعي الروتين الفرعي "تقييم الاختبار" للحصول على النتيجة.

8. حفظ برنامج VisualBasic الخاص بك. اضغط F5 لتشغيله.