Ako používať Visual Basic vytvoriť multiple choice test

Každá otázka v multiple choice test sa skladá z otázky samotnej a niekoľko rôznych odpovedí , z ktorých len jedna je správna . Môžete vytvoriť multiple choice test v jazyku Visual Basic pomocou štítkov pre zobrazenie otázky , prepínače pre možné odpovede a ovládacím tlačidlám pre navigáciu medzi rôznymi otázkami . V kóde , použite pole pre uloženie otázky a odpovede , ktoré používateľ odošle a udržiavať premenné čítača na sledovanie toho , čo spochybňujú užívateľ je na . Na konci testu , označte odpoveď užívateľa a zobrazí výsledok na formulári . Pokyny dovolená 1

Otvorte nový projekt Visual Basic . Pridať dva štítky , tri prepínacie tlačidlá a dve tlačidlá ovládacích prvkov do formulára . Pretiahnite dva štítky na vrchol s TextLabel1 na vrchole Label2 . Pretiahnite RadioButton1 , RadioButton2 a RadioButton3 zarovnať zvisle pod menovkami . Pretiahnite dve tlačidlá pod položkou prepínačov s Button1 na ľavej strane a Button2 na pravej strane .
2

Stlačte tlačidlo " F7 " sa otvorí okno kód . Zadajte nasledujúci kód na úrovni triedy :

Dim otázky ( 2 , 4 ) As String Dim

odpovede ( 2 ) As String Dim

quesNum As Integer

Prvý riadok vytvorí dvojrozmerné pole . Prvý rozmer je pre každú otázku a druhý rozmer je pre otázke samotnej , troch možností odpovede a správne odpovede . Druhý riadok vytvorí pole pre uloženie odpovede užívateľa . Tretí riadok vytvorí premennú čítač , ktorý sleduje otázku je užívateľ na
3

zadajte nasledujúci kód : .

Private Sub GetQuestions ( )

otázky = new String ( , ) { { " Koľko farieb je v dúhových ? " , " 5 " , " 6 " , " 7 " , " 7 " } , _

{ " Kto hral v Piráti z Karibiku ? " , " Johnny Depp " , " John Malkovich " , " John Cusack " , " Johnny Depp " } , _

{ " Čo je hlavným mestom Floridy ? " , " Miami " , " Tallahassee " , " Jacksonville " , " Tallahassee " } }

End Sub

Tento podsystém jednoducho inicializuje tri otázky a odpovede v otázkach poľa . Môžete pridať ďalšie otázky alebo ich získať aj inými spôsobmi , napríklad prostredníctvom textového súboru , ale ak tak urobíte , nezabudnite zmeniť veľkosť otázky a odpovede pole pre počet otázok .
4

Zadajte nasledujúci kód :

Private Sub Marktest ( )

Dim stupeň As Integer = 0

pre i = 0 až 2

odpovede ( i ) = otázky ( i , 4 ) Potom

grade + = 1

End If

Ďalšie

Label1.Text = " Test dokončený ! "

Label2.Text = " skóroval " Ty & triedu a " z " a answers.Length & " ! "

RadioButton1.Enabled = False

RadioButton2.Enabled = False

RadioButton3.Enabled = False

Button1.Enabled = False

Button2.Enabled = False

End Sub

prvý riadok deklaruje podprogram , ktorý označuje test . To vytvorí lokálnu premennú počítať skóre , potom cykly prostredníctvom odpovedí v poli otázok a odpovedí predložených užívateľom . Pre každú odpoveď , ktorá zodpovedá , stupeň zdvihne o jeden . To potom zobrazí výsledok v štítkov a zakáže zvyšok ovládacích prvkov
5

Otvorte Form1_Load ( ) podprogram a zadajte nasledujúci kód : .

Me.Text = " My Multiple Choice Quiz ! " Spojené

GetQuestions ( )

quesNum = 1

Label1.Text = " Otázka " a quesNum a " z " a answers.Length

Label2.Text = otázok ( 0 , 0 )

Button1.Text = " Predchádzajúci "

Button2.Text = " Next "

RadioButton1.Text = otázok ( 0 , 1 )

RadioButton2.Text = otázok ( 0 , 2 )

RadioButton3.Text = otázok ( 0 , 3 )

Prvý riadok nastaví názov v hlavičky. Ďalší riadok volá GetQuestions ( ) podprogram . Tretí riadok inicializuje premennú otázka proti . Štvrtý riadok zobrazuje , aké číslo otázka užívateľ je na . Piatom riadku sa zobrazí prvú otázku vo štítku . Šiestej a siedmej linky zmeniť text dvoch tlačidiel . Posledné tri riadky vložte tri úlohy s výberom odpovedí , ako text na troch prepínačov
6

Otvorte button1_Click ( ) podprogram a zadajte nasledujúci kód : .

Ak quesNum > 1 Potom

quesNum - = 1

Label1.Text = " Otázka " a quesNum & " z 3. "

Label2.Text = otázky ( quesNum - 1 , 0 )

RadioButton1.Text = otázky ( quesNum - 1 , 1 )

RadioButton2.Text = otázky ( quesNum - 1 , 2 )

RadioButton3.Text = otázky ( quesNum - 1 , 3 )

Ak Button2.Text = " Odoslať " Tak

Button2.Text = " Next "

End If

End If

Toto je kód tlačidla " Predchádzajúci " . Najprv skontroluje , či užívateľ stlačil tlačidlo , zatiaľ čo už na prvú otázku . Ak tomu tak nie je , zníži čítač otázku jedného a aktualizuje text na etiketách a prepínačov ukazujú na predchádzajúcu otázku . Ak bol užívateľ na poslednú otázku , text na Button2 zmení z " Odoslať " späť do
7

Otvorte Button2_Click ( ) podprogram a zadajte nasledujúci kód " Ďalej. " :

Ak RadioButton1.Checked = True Then

odpovede ( quesNum - 1 ) = RadioButton1.Text

ElseIf RadioButton2.Checked = True Then

odpovede ( quesNum - 1 ) = RadioButton2.Text

ElseIf RadioButton3.Checked = True Then

odpovede ( quesNum - 1 ) = RadioButton3.Text

End If

RadioButton1.Focus ( )

Ak quesNum < 3 Potom

quesNum + = 1

Label1.Text = " Otázka " a quesNum a " z " a answers.Length

Label2.Text = otázky ( quesNum - 1 , 0 )

RadioButton1.Text = otázky ( quesNum - 1 , 1 )

RadioButton2.Text = otázky ( quesNum - 1 , 2 )

RadioButton3.Text = otázky ( quesNum - 1 , 3 )

Ak quesNum = 3 Potom

Button2.Text = " Odoslať "

Koniec ak

Else

Marktest ( )

End If

Toto je kód pre tlačidlo " Ďalej" . Prvých sedem riadkov skontrolovať , aby videli , čo prepínacie tlačidlo vybral používateľ , potom sa uloží , že odpoveď na odpovede pole . Nasledujúci riadok sa zameriava na rozhlasovú výber tlačidlá na RadioButton1 . Ďalšie linky skontroluje , že používateľ nie je na poslednú otázku . Ak je to pravda , to zvyšuje počítadlo otázku jedného a aktualizuje štítky a prepínačov , ktoré ukazujú na ďalšiu otázku . To potom skontroluje , či užívateľ je teraz na poslednú otázku . Ak áno , zmení sa text na tlačidle Ďalší z " Next " na " Odoslať " . Ak už bol užívateľ na poslednú otázku a klikli na " Odoslať " , program volá funkciu " Marktest " dostať užívateľa skóre .
8

Uložiť programu Visual Basic . Stlačením tlačidla " F5 " , aby ho spustiť .

• Predchádzajúca strana: Ako používať posuvník vo VB6 
• Ďalšia strana: Typy vstupných polí v jazyku VBA