Kako koristiti Visual Basic za izradu testa višestrukog izbora

Svako pitanje u testu višestrukog izbora sastoji se od samog pitanja i nekoliko različitih odgovora od kojih je samo jedan točan. Možete izraditi test višestrukog izbora u Visual Basicu koristeći oznake za prikaz pitanja, radio gumbe za moguće odgovore i kontrole gumba za navigaciju između različitih pitanja. U kodu koristite nizove za spremanje pitanja i odgovora koje korisnik šalje i održavajte varijablu brojača da biste pratili na kojem se pitanju korisnik nalazi. Na kraju testa označiti korisnikove odgovore i prikazati rezultat na obrascu.

1. korak

Otvorite novi Visual Basic projekt. Dodajte dvije oznake, tri radio gumba i dvije kontrole gumba u obrazac. Povucite dvije oznake na vrh s Label1 na vrhu Label2. Povucite RadioButton1, RadioButton2 i RadioButton3 da se poredaju okomito ispod oznaka. Povucite dva gumba ispod radio gumba s Button1 na lijevoj i Button2 na desnoj strani.

2. korak

Pritisnite "F7" da biste otvorili prozor koda. Upišite sljedeći kod na razini razreda:

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

Prvi redak stvara dvodimenzionalni niz. Prva dimenzija je za svako pitanje, a druga dimenzija za samo pitanje, tri ponuđena odgovora i točan odgovor. Drugi redak stvara niz za pohranjivanje korisničkih odgovora. Treći redak stvara varijablu brojača koja prati pitanje na koje je korisnik postavljen.

3. korak

Upišite sljedeći kôd:

Private Sub GetQuestions() questions =New String(,) {{"Koliko boja ima duga?", "5", "6", "7", "7"}, {"Tko je glumio u Pirati s Kariba?", "Johnny Depp", "John Malkovich", "John Cusack", "Johnny Depp"}, {"Koji je glavni grad Floride?", "Miami", "Tallahassee", "Jacksonville", "Tallahassee"}} End Sub

Ovaj potprogram jednostavno inicijalizira tri pitanja i odgovora u nizu pitanja. Možete dodati dodatna pitanja ili ih dobiti na druge načine, kao što je putem tekstualne datoteke, ali ako to učinite, ne zaboravite promijeniti veličinu niza pitanja i odgovora kako bi se prilagodili broju pitanja.

4. korak

Upišite sljedeći kôd:

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 završen!" Label2.Text ="Osvojili ste " &ocjenu &" od " &odgovori. Duljina &"!" RadioButton1.Enabled =False RadioButton2.Enabled =False RadioButton3.Enabled =False Button1.Enabled =False Button2.Enabled =False End Sub

Prvi redak deklarira potprogram koji označava test. Stvara lokalnu varijablu za brojanje rezultata, zatim kruži kroz odgovore u nizu pitanja i odgovore koje je poslao korisnik. Za svaki odgovor koji odgovara, ocjena se povećava za jedan. Zatim prikazuje rezultat u oznakama i onemogućuje ostale kontrole.

Korak 5

Otvorite podrutinu Form1_Load() i upišite sljedeći kod:

Me.Text ="Moj kviz s višestrukim izborom!" GetQuestions() quesNum =1 Label1.Text ="Pitanje " &quesNum &" od " &answers.Length Label2.Text =questions(0, 0) Button1.Text ="Prethodno" Button2.Text ="Sljedeće" RadioButton1.Text =questions(0, 1) RadioButton2.Text =questions(0, 2) RadioButton3.Text =questions(0, 3)

Prvi red postavlja naslov u naslovnoj traci. Sljedeći redak poziva potprogram GetQuestions(). Treći red inicijalizira varijablu brojača pitanja. Četvrti redak prikazuje broj pitanja na kojem se korisnik nalazi. Peti redak prikazuje pitanje jedan u oznaci. Šesti i sedmi red mijenjaju tekst za dva gumba. Posljednja tri retka umeću tri odgovora s višestrukim izborom kao tekst za tri radio gumba.

Korak 6

Otvorite potprogram Button1_Click() i upišite sljedeći kôd:

Ako je quesNum> 1 Onda je quesNum -=1 Label1.Text ="Pitanje " &quesNum &" od 3" 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 Button2.Text ="Pošalji" Then Button2.Text ="Next" End If End If

Ovo je kod za gumb "Prethodno". Prvo provjerava je li korisnik pritisnuo gumb dok je već bio na prvom pitanju. Ako nije, smanjuje brojač pitanja za jedan i ažurira tekst za oznake i radio gumbe kako bi prikazao prethodno pitanje. Ako je korisnik bio na posljednjem pitanju, tekst na gumbu 2 mijenja se iz "Pošalji" natrag u "Dalje".

7. korak

Otvorite potprogram Button2_Click() i upišite sljedeći kôd:

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 ="Pitanje " &quesNum &" od " &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() Kraj ako

Ovo je kod za gumb "Dalje". Prvih sedam redaka provjerava koji je radio gumb korisnik odabrao, a zatim sprema taj odgovor u polje odgovora. Sljedeći redak fokusira odabir radio gumba na RadioButton1. Sljedeći redak provjerava da korisnik nije na posljednjem pitanju. Ako je to točno, povećava se brojač pitanja za jedan i ažuriraju se oznake i radio gumbi za prikaz sljedećeg pitanja. Zatim provjerava je li korisnik sada na posljednjem pitanju. Ako je tako, mijenja se tekst za gumb Dalje iz "Dalje" u "Pošalji". Ako je korisnik već bio na posljednjem pitanju i kliknuo "Pošalji", program poziva funkciju "MarkTest" kako bi dobio korisnikov rezultat.

Korak 8

Spremite program Visual Basic. Pritisnite "F5" za pokretanje.