Les partenaires publicitaires:

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

Chaque question dans un test à choix multiples se compose d'une question lui-même et plusieurs réponses différentes, dont une seule est correcte. Vous pouvez créer un test à choix multiples dans Visual Basic en utilisant des étiquettes pour afficher les questions, boutons radio pour les réponses possibles et les contrôles de bouton pour naviguer entre les différentes questions. Dans le code, utilisation des tableaux pour enregistrer les questions et les réponses que l'utilisateur soumet et maintiennent une variable compteur de garder une trace de ce que la question l'utilisateur est sur. A la fin du test, marquer les réponses de l'utilisateur et afficher le résultat sur le formulaire.

Instructions

  1. 1

    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.

  2. 2

    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.

  3. 3

    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.

  4. 4

    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.

  5. 5

    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.

  6. 6

    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."

  7. 7

    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.

  8. 8

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

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