Atidarykite naują „Visual Basic“ projektą. Į formą pridėkite dvi etiketes, tris radijo mygtukus ir du mygtukų valdiklius. Vilkite dvi etiketes į viršų, o etiketė 1 yra ant etiketės2. Vilkite RadioButton1, RadioButton2 ir RadioButton3, kad išsirikiuotų vertikaliai po etiketėmis. Vilkite du mygtukus, esančius po radijo mygtukais, naudodami mygtuką 1 kairėje ir mygtuką 2 dešinėje.
Pirmoje eilutėje sukuriamas dvimatis masyvas. Pirmoji dimensija skirta kiekvienam klausimui, o antroji – pačiam klausimui, trims atsakymų pasirinkimams ir teisingam atsakymui. Antroje eilutėje sukuriamas masyvas, kuriame saugomi vartotojo atsakymai. Trečioje eilutėje sukuriamas skaitiklio kintamasis, kuris seka vartotojo užduotą klausimą.
Privatūs sub GetQuestions() klausimai = Nauja eilutė(,) {{"Kiek spalvų yra vaivorykštėje?", "5", "6", "7", "7"}, {"Kas vaidino filmuose "Karibų piratai?", "Džonis Depas", "Džonas Malkovičius", "Džonas Cusackas", "Džonis Depas"}, {"Kas yra Floridos sostinė?", Majamis, Talahasis, Džeksonvilis, Talahasis}} Pabaiga
Ši paprogramė tiesiog inicijuoja tris klausimus ir atsakymus klausimų masyve. Galite pridėti papildomų klausimų arba gauti juos kitais būdais, pavyzdžiui, naudodami tekstinį failą, bet jei jūs darykite, nepamirškite pakeisti klausimo ir atsakymų masyvo dydžio, kad atitiktų skaičių klausimus.
Privatus antrinis MarkTest() Neryškus įvertinimas kaip sveikasis skaičius = 0 Kai i = 0 iki 2 Jei atsakymai (i) = klausimai (i, 4) Tada pažymys += 1 Pabaiga Jei Kitas Label1.Text = "Bandymas baigtas!" Label2.Text = "Jūs surinkote balą " & įvertinimas & " iš " & atsakymai. Ilgis ir "!" RadioButton1.Enabled = klaidingas RadioButton2.Enabled = klaidingas RadioButton3.Enabled = klaidingas mygtukas1.Įjungtas = klaidingas mygtukas2.Įjungtas = klaidingas pabaigos pogrupis
Pirmoje eilutėje deklaruojama paprogramė, kuri žymi testą. Jis sukuria vietinį kintamąjį balui skaičiuoti, tada peržiūri atsakymus klausimų masyve ir vartotojo pateiktus atsakymus. Už kiekvieną atitinkantį atsakymą pažymys pakeliamas vienu. Tada etiketėse rodomas rezultatas ir išjungiami kiti valdikliai.
Aš. Text = "Mano kelių pasirinkimų viktorina!" GetQuestions() quesNum = 1 Label1.Text = "Klausimas " & quesNum & " iš " & atsakymų. Ilgis Label2.Text = klausimai (0, 0) Button1.Text = "Ankstesnis" Button2.Text = "Kitas" RadioButton1.Text = klausimai (0, 1) RadioButton2.Text = klausimai (0, 2) RadioButton3.Text = klausimai (0, 3)
Pirmoji eilutė nustato pavadinimą pavadinimo juostoje. Kita eilutė iškviečia paprogramę GetQuestions(). Trečioje eilutėje inicijuojamas klausimų skaitiklio kintamasis. Ketvirtoje eilutėje rodomas vartotojo klausimo numeris. Penktoje eilutėje rodomas pirmasis etiketės klausimas. Šeštoji ir septintoji eilutės pakeičia dviejų mygtukų tekstą. Paskutinėse trijose eilutėse įterpiami trys atsakymai su keliais atsakymų variantais kaip trijų radijo mygtukų tekstas.
Jei quesNum > 1 Tada quesNum -= 1 Label1.Text = "Klausimas " & quesNum & " iš 3" Label2.Text = klausimai (quesNum - 1, 0) RadioButton1.Text = klausimai (quesNum - 1, 1) RadioButton2.Text = klausimai (quesNum - 1, 2) RadioButton3.Text = klausimai (quesNum - 1, 3) If Button2.Text = "Pateikti" Tada Button2.Text = "Kitas" Pabaiga Jei Pabaiga If
Tai yra mygtuko „Ankstesnis“ kodas. Pirmiausia patikrinama, ar vartotojas paspaudė mygtuką jau atsakydamas pirmą kartą. Jei ne, klausimų skaitiklis sumažinamas vienu ir atnaujinamas etikečių bei radijo mygtukų tekstas, kad būtų rodomas ankstesnis klausimas. Jei naudotojas atsakė į paskutinį klausimą, 2 mygtuko tekstas pasikeičia iš „Pateikti“ į „Kitas“.
Jei RadioButton1.Checked = True Tada atsakymai (klausimų skaičius - 1) = RadioButton1.Text ElseIf RadioButton2.Checked = True Tada atsakymai (klausimų skaičius - 1) = RadioButton2.Text ElseIf RadioButton3.Checked = True Tada atsakymai (quesNum - 1) = RadioButton3.Text End If RadioButton1.Focus() If quesNum < 3 Tada quesNum += 1 Label1.Text = "Klausimas " & quesNum & " iš “ ir atsakymai. Ilgis Label2.Text = klausimai (quesNum - 1, 0) RadioButton1.Text = klausimai (quesNum - 1, 1) RadioButton2.Text = klausimai (klausimų skaičius - 1, 2) RadioButton3.Text = klausimai (klausimų skaičius - 1, 3) Jei quesNum = 3 Tada Button2.Text = "Pateikti" Pabaiga, jei kitaip MarkTest() Pabaiga, jei
Tai yra mygtuko „Kitas“ kodas. Pirmosiose septyniose eilutėse patikrinama, kokį radijo mygtuką pasirinko vartotojas, tada išsaugo atsakymą atsakymų masyve. Kitoje eilutėje radijo mygtuko pasirinkimas sutelkiamas į RadioButton1. Kitoje eilutėje patikrinama, ar vartotojas neatsakė į paskutinį klausimą. Jei tai tiesa, klausimų skaitiklis padidinamas vienu ir atnaujinamos etiketės bei radijo mygtukai, kad būtų rodomas kitas klausimas. Tada patikrinama, ar vartotojas dabar atsako į paskutinį klausimą. Jei taip, mygtuko Kitas tekstas pakeičiamas iš „Kitas“ į „Pateikti“. Jei vartotojas jau buvo paskutinį klausimą ir spustelėjus „Pateikti“, programa iškviečia funkciją „MarkTest“, kad gautų vartotojo balą.
