एक नया Visual Basic प्रोजेक्ट खोलें। प्रपत्र में दो लेबल, तीन रेडियो बटन और दो बटन नियंत्रण जोड़ें। दो लेबलों को लेबल2 के शीर्ष पर लेबल1 के साथ शीर्ष पर खींचें। लेबल के नीचे लंबवत पंक्तिबद्ध करने के लिए RadioButton1, RadioButton2 और RadioButton3 को खींचें। रेडियो बटन के नीचे दो बटनों को बाईं ओर बटन 1 और दाईं ओर बटन 2 के साथ खींचें।
पहली पंक्ति एक द्वि-आयामी सरणी बनाती है। पहला आयाम प्रत्येक प्रश्न के लिए है और दूसरा आयाम स्वयं प्रश्न के लिए है, तीन उत्तर विकल्प और सही उत्तर है। दूसरी पंक्ति उपयोगकर्ता के उत्तरों को संग्रहीत करने के लिए एक सरणी बनाती है। तीसरी पंक्ति एक काउंटर वेरिएबल बनाती है जो उपयोगकर्ता के प्रश्न का ट्रैक रखता है।
निजी उप GetQuestions () प्रश्न = नई स्ट्रिंग (,) {{"इंद्रधनुष में कितने रंग हैं?", "5", "6", "7", "7"}, {"पाइरेट्स ऑफ द कैरेबियन में किसने अभिनय किया?", "जॉनी डेप", "जॉन माल्कोविच", "जॉन क्यूसैक", "जॉनी डेप"}, {"फ्लोरिडा की राजधानी क्या है?", "मियामी", "तल्लाहसी", "जैक्सनविल", "तल्लाहसी"}} एंड सब
यह सबरूटीन केवल प्रश्नों के सरणी में तीन प्रश्नों और उत्तरों को प्रारंभ करता है। आप अतिरिक्त प्रश्न जोड़ सकते हैं या उन्हें अन्य तरीकों से प्राप्त कर सकते हैं, जैसे टेक्स्ट फ़ाइल के माध्यम से, लेकिन यदि आप क्या करें, संख्या को समायोजित करने के लिए प्रश्न और उत्तर सरणियों का आकार बदलना याद रखें प्रशन।
निजी सब मार्कटेस्ट () पूर्णांक के रूप में मंद ग्रेड = 0 i = 0 से 2 के लिए यदि उत्तर (i) = प्रश्न (i, 4) तो ग्रेड + = 1 अंत यदि अगला लेबल1.पाठ = "परीक्षण समाप्त!" लेबल2.पाठ = "आपने स्कोर किया" और ग्रेड और "में से" और उत्तर। लंबाई & "!" RadioButton1.Enabled = False RadioButton2.Enabled = False RadioButton3.Enabled = False Button1.Enabled = False Button2.Enabled = False End Sub
पहली पंक्ति एक सबरूटीन घोषित करती है जो परीक्षण को चिह्नित करती है। यह स्कोर की गणना करने के लिए एक स्थानीय चर बनाता है, फिर प्रश्नों के सरणी में उत्तरों और उपयोगकर्ता द्वारा प्रस्तुत उत्तरों के माध्यम से चक्र करता है। मेल खाने वाले प्रत्येक उत्तर के लिए, ग्रेड एक से बढ़ जाता है। यह तब लेबल में स्कोर प्रदर्शित करता है और बाकी नियंत्रणों को निष्क्रिय कर देता है।
मैं। टेक्स्ट = "माई मल्टीपल चॉइस क्विज़!" GetQuestions() quesNum = 1 Label1.Text = "प्रश्न" और quesNum और "का" और उत्तर। लंबाई लेबल 2. टेक्स्ट = प्रश्न (0, 0) बटन 1. टेक्स्ट = "पिछला" बटन 2. टेक्स्ट = "अगला" रेडियोबटन 1. टेक्स्ट = प्रश्न (0, 1) रेडियोबटन 2. टेक्स्ट = प्रश्न (0, 2) रेडियोबटन 3. टेक्स्ट = प्रश्न (0, 3)
पहली पंक्ति टाइटल बार में टाइटल सेट करती है। अगली पंक्ति GetQuestions() सबरूटीन को कॉल करती है। तीसरी पंक्ति प्रश्न काउंटर वैरिएबल को इनिशियलाइज़ करती है। चौथी पंक्ति प्रदर्शित करती है कि उपयोगकर्ता किस प्रश्न संख्या पर है। पांचवीं पंक्ति लेबल में प्रश्न एक प्रदर्शित करती है। छठी और सातवीं पंक्तियाँ दो बटनों के पाठ को बदल देती हैं। अंतिम तीन पंक्तियों में तीन रेडियो बटन के लिए टेक्स्ट के रूप में तीन बहुविकल्पीय उत्तर सम्मिलित होते हैं।
यदि quesNum > 1 फिर quesNum -= 1 लेबल1. टेक्स्ट = "प्रश्न" और quesNum & "3" का लेबल 2. टेक्स्ट = प्रश्न (quesNum - 1, 0) RadioButton1.Text = प्रश्न (quesNum-1), 1) RadioButton2.Text = प्रश्न (quesNum - 1, 2) RadioButton3.Text = प्रश्न (quesNum-1, 3) यदि Button2.Text = "Submit" तो Button2.Text = "Next" End यदि अंत हो तो
यह "पिछला" बटन के लिए कोड है। यह पहले यह देखने के लिए जांच करता है कि उपयोगकर्ता ने पहले प्रश्न पर पहले से ही बटन दबाया है या नहीं। यदि नहीं, तो यह प्रश्न काउंटर को एक-एक करके घटा देता है और पिछले प्रश्न को दिखाने के लिए लेबल और रेडियो बटन के टेक्स्ट को अपडेट कर देता है। यदि उपयोगकर्ता अंतिम प्रश्न पर था, तो Button2 पर पाठ "सबमिट" से वापस "अगला" में बदल जाता है।
यदि RadioButton1.checked = True तब उत्तर (quesNum - 1) = RadioButton1.Text ElseIf RadioButton2.checked = True तब उत्तर (quesNum - 1) = RadioButton2.Text ElseIf RadioButton3.checked = True तब उत्तर (quesNum - 1) = RadioButton3.Text End यदि RadioButton1.Focus() यदि quesNum <3 तो quesNum += 1 Label1.Text = "प्रश्न" और quesNum & "का "और जवाब। लंबाई लेबल2.पाठ = प्रश्न (प्रश्न संख्या - 1, 0) रेडियोबटन 1. पाठ = प्रश्न (प्रश्न संख्या - 1, 1) रेडियोबटन 2. पाठ = प्रश्न (quesNum - 1, 2) RadioButton3.Text = प्रश्न (quesNum - 1, 3) यदि quesNum = 3 तो Button2.Text = "सबमिट" समाप्त होता है यदि अन्य मार्कटेस्ट () अगर अंत
यह "अगला" बटन के लिए कोड है। पहली सात पंक्तियाँ यह देखने के लिए जाँच करती हैं कि उपयोगकर्ता ने कौन सा रेडियो बटन चुना था, फिर उस उत्तर को उत्तर सरणी में सहेजता है। अगली पंक्ति RadioButton1 पर रेडियो बटन चयन पर ध्यान केंद्रित करती है। अगली पंक्ति यह देखने के लिए जांच करती है कि उपयोगकर्ता अंतिम प्रश्न पर नहीं है। यदि यह सत्य है, तो यह प्रश्न काउंटर को एक से बढ़ा देता है और अगला प्रश्न दिखाने के लिए लेबल और रेडियो बटन को अपडेट कर देता है। इसके बाद यह देखने के लिए जांच करता है कि उपयोगकर्ता अब अंतिम प्रश्न पर है या नहीं। यदि ऐसा है, तो यह नेक्स्ट बटन के टेक्स्ट को "अगला" से "सबमिट" में बदल देता है। यदि उपयोगकर्ता पहले से ही पर था अंतिम प्रश्न और "सबमिट" पर क्लिक किया, प्रोग्राम उपयोगकर्ता के स्कोर को प्राप्त करने के लिए "मार्कटेस्ट" फ़ंक्शन को कॉल करता है।
