Kako uporabiti Visual Basic za ustvarjanje testa z več možnimi odgovori

Vsako vprašanje v testu z izbirnimi odgovori je sestavljeno iz enega samega vprašanja in več različnih odgovorov, od katerih je samo eden pravilen. V Visual Basicu lahko ustvarite test z več izbirami z uporabo oznak za prikaz vprašanj, izbirnih gumbov za možne odgovore in kontrolnikov gumbov za krmarjenje med različnimi vprašanji. V kodi uporabite nize za shranjevanje vprašanj in odgovorov, ki jih pošlje uporabnik, in vzdržujte spremenljivko števca, da boste spremljali, na katerem vprašanju je uporabnik. Na koncu testa označite odgovore uporabnika in rezultat prikažite na obrazcu.

1. korak

Odprite nov projekt Visual Basic. V obrazec dodajte dve oznaki, tri izbirne gumbe in dva kontrolnika gumbov. Dve oznaki povlecite na vrh z oznako 1 na vrhu oznake 2. Povlecite RadioButton1, RadioButton2 in RadioButton3, da se poravnajo navpično pod oznakami. Povlecite dva gumba pod izbirnimi gumbi z gumboma 1 na levi in ​​gumbom 2 na desni.

2. korak

Pritisnite "F7", da odprete okno s kodo. Vnesite naslednjo kodo na ravni razreda:

Dim questions(2, 4) As String Dim answers(2) As String Dim quesNum As Integer

Prva vrstica ustvari dvodimenzionalni niz. Prva dimenzija je za vsako vprašanje, druga dimenzija pa za samo vprašanje, tri možne odgovore in pravilni odgovor. Druga vrstica ustvari matriko za shranjevanje uporabnikovih odgovorov. Tretja vrstica ustvari spremenljivko števca, ki sledi vprašanju, na katerega je postavljen uporabnik.

3. korak

Vnesite to kodo:

Private Sub GetQuestions() questions =New String(,) {{"Koliko barv je v mavrici?", "5", "6", "7", "7"}, {"Kdo je igral v Pirati s Karibov?", "Johnny Depp", "John Malkovich", "John Cusack", "Johnny Depp"}, {"Kaj je glavno mesto Floride?", "Miami", "Tallahassee", "Jacksonville", "Tallahassee"}} End Sub

Ta podprogram preprosto inicializira tri vprašanja in odgovore v nizu vprašanj. Dodate lahko dodatna vprašanja ali jih pridobite na druge načine, na primer prek besedilne datoteke, vendar če to storite, ne pozabite spremeniti velikosti vprašanj in nizov odgovorov, da se prilagodijo številu vprašanj.

4. korak

Vnesite to kodo:

Private Sub MarkTest() Dim grade As Integer =0 For i =0 To 2 If answers(i) =questions(i, 4) Then grade +=1 End If Next Label1.Text ="Test končan!" Label2.Text ="Dosegli ste " &ocena &" iz " &answers.Length &"!" RadioButton1.Enabled =False RadioButton2.Enabled =False RadioButton3.Enabled =False Button1.Enabled =False Button2.Enabled =False End Sub

Prva vrstica deklarira podprogram, ki označuje test. Ustvari lokalno spremenljivko za štetje rezultatov, nato kroži med odgovori v nizu vprašanj in odgovori, ki jih je poslal uporabnik. Za vsak odgovor, ki se ujema, se ocena dvigne za eno. Nato prikaže rezultat v oznakah in onemogoči preostale kontrolnike.

5. korak

Odprite podprogram Form1_Load() in vnesite to kodo:

Me.Text ="Moj kviz z več izbirami!" GetQuestions() quesNum =1 Label1.Text ="Vprašanje " &quesNum &" od " &odgovori.Dolžina Label2.Text =vprašanja(0, 0) Button1.Text ="Prejšnji" Button2.Text ="Naslednji" RadioButton1.Text =questions(0, 1) RadioButton2.Text =questions(0, 2) RadioButton3.Text =questions(0, 3)

Prva vrstica nastavi naslov v naslovni vrstici. Naslednja vrstica pokliče podprogram GetQuestions(). Tretja vrstica inicializira spremenljivko števca vprašanj. Četrta vrstica prikazuje številko vprašanja, na katerem je uporabnik. V peti vrstici je prikazano prvo vprašanje v oznaki. Šesta in sedma vrstica spremenita besedilo za dva gumba. Zadnje tri vrstice vstavijo tri izbirne odgovore kot besedilo za tri izbirne gumbe.

6. korak

Odprite podprogram Button1_Click() in vnesite to kodo:

Če je quesNum> 1 Potem je quesNum -=1 Label1.Text ="Vprašanje " &quesNum &" od 3" Label2.Text =vprašanja(quesNum - 1, 0) RadioButton1.Text =vprašanja(quesNum - 1, 1) RadioButton2.Text =questions(quesNum - 1, 2) RadioButton3.Text =questions(quesNum - 1, 3) If Button2.Text ="Submit" Then Button2.Text ="Next" End If End If

To je koda za gumb "Prejšnji". Najprej preveri, ali je uporabnik pritisnil gumb že pri prvem vprašanju. Če ne, zmanjša števec vprašanj za eno in posodobi besedilo za oznake in izbirne gumbe, da prikaže prejšnje vprašanje. Če je bil uporabnik na zadnjem vprašanju, se besedilo na Button2 spremeni iz "Pošlji" nazaj v "Naprej."

7. korak

Odprite podprogram Button2_Click() in vnesite to kodo:

If RadioButton1.Checked =True Then answers(quesNum - 1) =RadioButton1.Text ElseIf RadioButton2.Checked =True Then answers(quesNum - 1) =RadioButton2.Text ElseIf RadioButton3.Checked =True Then answers(quesNum - 1) =RadioButton3. Text End If RadioButton1.Focus() If quesNum <3 Then quesNum +=1 Label1.Text ="Vprašanje " &quesNum &" of " &answers.Length Label2.Text =questions(quesNum - 1, 0) RadioButton1.Text =questions(quesNum - 1, 1) RadioButton2.Text =questions(quesNum - 1, 2) RadioButton3.Text =questions(quesNum - 1, 3) If quesNum =3 Then Button2.Text ="Submit" End If Else MarkTest() Končaj Če

To je koda za gumb "Naprej". Prvih sedem vrstic preveri, kateri izbirni gumb je uporabnik izbral, nato pa ta odgovor shrani v polje odgovorov. Naslednja vrstica osredotoči izbiro izbirnega gumba na RadioButton1. V naslednji vrstici se preveri, ali uporabnik ni na zadnjem vprašanju. Če je to res, poveča števec vprašanj za eno in posodobi oznake in izbirne gumbe za prikaz naslednjega vprašanja. Nato preveri, ali je uporabnik zdaj na zadnjem vprašanju. Če je tako, spremeni besedilo za gumb Naprej iz »Naprej« v »Pošlji«. Če je uporabnik že bil pri zadnjem vprašanju in je kliknil »Pošlji«, program pokliče funkcijo »MarkTest«, da pridobi rezultat uporabnika.

8. korak

Shranite program Visual Basic. Pritisnite "F5", da ga zaženete.