Comment faire pour utiliser Visual Basic pour créer un test à choix multiples

Ouvrez un nouveau projet Visual Basic. Ajoutez deux étiquettes, trois boutons de radio et deux boutons de commande au formulaire. Faites glisser les deux étiquettes vers le haut avec Label1 sur le dessus de Label2. Faites glisser RadioButton1, RadioButton2 et RadioButton3 d'aligner verticalement sous les étiquettes. Faites glisser les deux boutons sous les boutons radio avec Button1 sur la gauche et Button2 sur la droite.

Appuyez "F7" pour ouvrir la fenêtre de code. Tapez le code suivant au niveau de la classe:

Des questions Dim (2, 4) As String

Dim réponses (2) As String

Dim quesNum As Integer

La première ligne crée un tableau à deux dimensions. La première dimension est pour chaque question et la seconde dimension est de la question elle-même, trois choix de réponse et la réponse correcte. La deuxième ligne crée un tableau pour stocker les réponses de l'utilisateur. La troisième ligne crée une variable compteur qui permet de suivre la question à l'utilisateur est sur.

Tapez le code suivant:

Private Sub GetQuestions ()

des questions = New String (,) {{"Combien de couleurs dans un arc en ciel?", "5", "6", "7", "7"}, _

{"Qui a joué dans Pirates des Caraïbes?", "Johnny Depp", "John Malkovich", "John Cusack", "Johnny Depp"}, _

{"Quelle est la capitale de la Floride?", "Miami", "Tallahassee", "Jacksonville", "Tallahassee"}}

End Sub

Ce sous-programme initialise simplement les trois questions et réponses dans le tableau des questions. Vous pouvez ajouter des questions supplémentaires ou les obtenir par d'autres moyens, tels que par le biais d'un fichier texte, mais si vous le faites, pensez à changer la taille de la question et répondre à des tableaux pour accueillir le nombre de questions.

Tapez le code suivant:

Private Sub Marktest ()

Note Dim As Integer = 0

Pour i = 0 à 2

Si les réponses (i) = les questions (i, 4) Ensuite,

qualité + 1 =

Fin si

Suivant

Label1.Text = "Essai terminé!"

Label2.Text = "Vous avez marqué " & grade & " en dehors de " & answers.Length & "!"

RadioButton1.Enabled = False

RadioButton2.Enabled = False

RadioButton3.Enabled = False

Button1.Enabled = False

Button2.Enabled = False

End Sub

La première ligne déclare un sous-programme qui marque l'essai. Il crée une variable locale pour compter le score, parcourt alors les réponses dans le tableau des questions et les réponses soumises par l'utilisateur. Pour chaque réponse qui correspond, la note monte par un. Il affiche alors le score dans les étiquettes et désactive le reste des contrôles.

Ouvrez la sous-routine Form1_Load () et tapez le code suivant:

Me.Text = "Mon Questionnaire sur les multiples choix!"

(GetQuestions)

quesNum = 1

Label1.Text = "Question " & quesNum & " de " & answers.Length

Label2.Text = questions (0, 0)

Button1.Text = "Antérieur"

Button2.Text = "Suivant"

RadioButton1.Text = questions (0, 1)

RadioButton2.Text = questions (0, 2)

RadioButton3.Text = questions (0, 3)

La première ligne définit le titre dans la barre de titre. La ligne suivante appelle les GetQuestions () sous-routine. La troisième ligne initialise la question variable compteur. La quatrième ligne affiche ce numéro de la question à l'utilisateur est sur. La cinquième ligne affiche interrogent l'un dans l'étiquette. Les sixième et septième lignes changent le texte pour les deux boutons. Les trois dernières lignes Insérez les trois choix multiples réponses que du texte pour les trois boutons radio.

Ouvrez la sous-routine Button1_Click () et tapez le code suivant:

Si quesNum gt; Puis 1

quesNum - = 1

Label1.Text = "Question " & quesNum & " de 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)

Si Button2.Text = "Soumettre" alors

Button2.Text = "Suivant"

Fin si

Fin si

Ceci est le code de la "Antérieur" bouton. Il vérifie d'abord si l'utilisateur appuyait sur le bouton tout en étant déjà sur la première question. Si non, il décrémente le compteur d'une question et met à jour le texte pour les étiquettes et les boutons radio pour montrer la question précédente. Si l'utilisateur était sur la dernière question, le texte sur Button2 change de "Soumettre" retour à "Suivant."

Ouvrez la sous-routine Button2_Click () et tapez le code suivant:

Si RadioButton1.Checked = True Then

(réponses quesNum - 1) = RadioButton1.Text

ElseIf RadioButton2.Checked = True Then

(réponses quesNum - 1) = RadioButton2.Text

ElseIf RadioButton3.Checked = True Then

(réponses quesNum - 1) = RadioButton3.Text

Fin si

RadioButton1.Focus ()

Si quesNum lt; 3 Ensuite,

quesNum + = 1

Label1.Text = "Question " & quesNum & " de " & 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)

Si quesNum = 3 Ensuite,

Button2.Text = "Soumettre"

Fin si

Autre

Marktest ()

Fin si

Ceci est le code de la "Suivant" bouton. Les sept premières lignes vérifier pour voir ce bouton, l'utilisateur avait choisi la radio, puis enregistre cette réponse au tableau réponses. La prochaine ligne, se concentre la sélection de bouton radio sur RadioButton1. La prochaine ligne vérifie que l'utilisateur ne figure pas sur la dernière question. Si cela est vrai, il augmente la question compteur d'une unité et met à jour les étiquettes et les boutons radio pour montrer à la question suivante. Il vérifie ensuite si l'utilisateur est maintenant sur la dernière question. Si oui, il modifie le texte pour le bouton Suivant de "Suivant" à "Soumettre." Si l'utilisateur était déjà sur la dernière question et cliqué "Soumettre" le programme appelle la "Marktest" fonction pour obtenir le score de l'utilisateur.

Enregistrez le programme Visual Basic. Appuyez "F5" pour l'exécuter.