A Visual Basic használata feleletválasztós teszt létrehozásához

A feleletválasztós teszt minden kérdése egy kérdésből és több különböző válaszból áll, amelyek közül csak egy helyes. Létrehozhat egy feleletválasztós tesztet a Visual Basic programban a kérdések megjelenítésére szolgáló címkék, a lehetséges válaszok rádiógombjai és a különböző kérdések közötti navigáláshoz gombvezérlők segítségével. A kódban tömbök segítségével mentse el a felhasználó által beküldött kérdéseket és válaszokat, és tartson fenn egy számlálóváltozót, hogy nyomon kövesse a felhasználó kérdését. A teszt végén jelölje meg a felhasználó válaszait, és jelenítse meg az eredményt az űrlapon.

1. lépés

Nyisson meg egy új Visual Basic projektet. Adjon hozzá két címkét, három választógombot és két gombvezérlőt az űrlaphoz. Húzza a két címkét a tetejére úgy, hogy a Label1 a Label2 tetejére kerüljön. Húzza el a RadioButton1, RadioButton2 és RadioButton3 gombot, hogy függőlegesen sorakozzon a címkék alatt. Húzza el a rádiógombok alatti két gombot úgy, hogy a Button1 a bal oldalon és a Button2 a jobb oldalon található.

2. lépés

Nyomja meg az "F7" gombot a kódablak megnyitásához. Írja be a következő kódot az osztály szintjén:

Dim kérdések (2, 4) Karakterláncként Halvány válaszok (2) Karakterláncként Dim quesNum Egész számként

Az első sor egy kétdimenziós tömböt hoz létre. Az első dimenzió minden kérdésre vonatkozik, a második dimenzió magára a kérdésre, három válaszlehetőségre és a helyes válaszra vonatkozik. A második sor létrehoz egy tömböt a felhasználó válaszainak tárolására. A harmadik sor egy számlálóváltozót hoz létre, amely nyomon követi a felhasználó kérdését.

3. lépés

Írja be a következő kódot:

Privát Sub GetQuestions() kérdések =New String(,) {{"Hány szín van a szivárványban?", "5", "6", "7", "7"}, {"Ki szerepelt A Karib-tenger kalózai?", "Johnny Depp", "John Malkovich", "John Cusack", "Johnny Depp"}, {"Mi Florida fővárosa?", "Miami", "Tallahassee", "Jacksonville", "Tallahassee"}} End Sub

Ez az alprogram egyszerűen inicializálja a három kérdést és a választ a kérdéstömbben. Hozzáadhat további kérdéseket, vagy más módon, például szöveges fájlon keresztül kaphatja meg őket, de ha igen, ne felejtse el módosítani a kérdés- és választömbök méretét a kérdések számának megfelelően.

4. lépés

Írja be a következő kódot:

Privát Sub MarkTest() Halvány osztályzat As Integer =0 For i =0 - 2 Ha válaszok (i) =kérdések (i, 4) Akkor osztályzat +=1 End If Next Label1.Text ="A teszt befejeződött!" Label2.Text ="Ön " &osztályzatot &" pontot ért el a " &válaszokból. Hossz és "!" RadioButton1.Enabled =Hamis RadioButton2.Enabled =Hamis RadioButton3.Enabled =False Button1.Enabled =Hamis gomb2.Engedélyezve =False End Sub

Az első sor deklarál egy szubrutint, amely a tesztet jelöli. Létrehoz egy helyi változót a pontszám megszámlálásához, majd végigfut a kérdések tömbjében lévő válaszokon és a felhasználó által beküldött válaszokon. Minden egyező válasz esetén az osztályzat eggyel nő. Ezután megjeleníti a pontszámot a címkéken, és letiltja a többi vezérlőt.

5. lépés

Nyissa meg a Form1_Load() szubrutint, és írja be a következő kódot:

Me.Text ="Az én feleletválasztós kvízem!" GetQuestions() quesNum =1 Label1.Text ="Kérdés " &quesNum &" of " &answers.Length Label2.Text =kérdések(0, 0) Button1.Text ="Előző" Button2.Text ="Következő" RadioButton1.Text =kérdések(0, 1) RadioButton2.Text =kérdések(0, 2) RadioButton3.Text =kérdések(0, 3)

Az első sor beállítja a címet a címsorban. A következő sor a GetQuestions() szubrutint hívja meg. A harmadik sor inicializálja a kérdésszámláló változót. A negyedik sor azt mutatja, hogy a felhasználó melyik kérdésszámon van. Az ötödik sor a címke első kérdését jeleníti meg. A hatodik és hetedik sor megváltoztatja a két gomb szövegét. Az utolsó három sor beszúrja a három feleletválasztós választ a három választógomb szövegeként.

6. lépés

Nyissa meg a Button1_Click() szubrutint, és írja be a következő kódot:

Ha a quesNum> 1, akkor quesNum -=1 Label1.Text ="Kérdés " &quesNum &" of 3" Label2.Text =kérdések(kérdésNum - 1, 0) RadioButton1.Text =kérdések(kérdésNum - 1, 1) RadioButton2.Tex =kérdések (quesNum - 1, 2) RadioButton3.Text =kérdések (quesNum - 1, 3) If Button2.Text ="Küldés" Then Button2.Text ="Next" End If End If

Ez az "Előző" gomb kódja. Először azt ellenőrzi, hogy a felhasználó megnyomta-e a gombot az első kérdésnél. Ha nem, akkor eggyel csökkenti a kérdésszámlálót, és frissíti a címkék és választógombok szövegét, hogy az előző kérdést jelenítse meg. Ha a felhasználó az utolsó kérdésnél volt, a Button2 szövege „Küldés” helyett „Következő”-re változik.

7. lépés

Nyissa meg a Button2_Click() szubrutint, és írja be a következő kódot:

If RadioButton1.Checked =True Then answers(quesNum - 1) =RadioButton1.Text ElseIf RadioButton2.Checked =True Then answers(quesNum - 1) =RadioButton2.Text ElseIf RadioButton3.Checked =True RadioButton -que) =TrueNum RadioButton -que) Szöveg vége If RadioButton1.Focus() If quesNum <3 Then quesNum +=1 Label1.Text ="Question " &quesNum &" of " &answers.Length Label2.Text =kérdések(kérdésNum - 1, 0) RadioButton1.Text =kérdések(kérdésszám - 1, 1) RadioButton2.Text =kérdések(kérdésszám - 1, 2) RadioButton3.Text =kérdések(kérdésszám - 1, 3) If quesNum =3 Then Button2.Text ="Küldés" End If Else MarkTest() Vége Ha

Ez a „Tovább” gomb kódja. Az első hét sor ellenőrzi, hogy a felhasználó melyik választógombot választotta, majd elmenti a választ a választömbbe. A következő sor a rádiógomb kiválasztását a RadioButton1-re fókuszálja. A következő sor ellenőrzi, hogy a felhasználó nem az utolsó kérdésnél van-e. Ha ez igaz, akkor eggyel növeli a kérdésszámlálót, és frissíti a címkéket és a rádiógombokat, hogy a következő kérdést jelenítse meg. Ezután ellenőrzi, hogy a felhasználó az utolsó kérdésnél van-e. Ha igen, akkor a Következő gomb szövegét „Következő”-ről „Küldés”-re módosítja. Ha a felhasználó már az utolsó kérdésnél volt, és a „Küldés” gombra kattintott, a program meghívja a „MarkTest” függvényt, hogy megkapja a felhasználó pontszámát.

8. lépés

Mentse el a Visual Basic programot. Nyomja meg az „F5” gombot a futtatáshoz.