Comment faire un quiz en visual basic

Ouvrez la fenêtre de programmation VB et écrire des déclarations attribuant le texte de chacune des questions de votre quiz, un élément d'un tableau de chaînes. Par exemple, vous pouvez écrire ces déclarations:

Questions (0) = "Qui était le nom du premier président des États-Unis?"
des questions (1) = "Quel est le produit de 3 à 17 ans?"

Écrire des déclarations attribuant le texte de chaque réponse à des éléments d'un autre tableau de chaîne. Pour les questions figurant dans la première étape, vous pouvez écrire ces déclarations:

réponses (0) = "-Washington"-
réponses (1) = "-51"-

Pour écrire une boucle suivante qui affiche les questions et invite l'utilisateur pour obtenir des réponses. Par exemple, vous pouvez écrire le code suivant boucle For Next.

Pour i = 0 à UBound (questions)
userAnswer = InputBox (les questions (i))
I Suivant

Écrire des déclarations qui comparent la réponse de l'utilisateur avec la réponse correcte. Par exemple, vous pouvez écrire les déclarations à la fin de cette étape. Ces déclarations comparer la réponse de l'utilisateur à la vraie réponse, puis suivre le score du joueur en augmentant la valeur des variables "incorrect" et "incorrect."

Si userAnswer lt; gt; réponses (i) Puis

MsgBox ("-incorrect. La bonne réponse est "- &réponses Amp (i))
nIncorrect + = 1
Autre
MsgBox ("-Correct!"-)
Ncorrect + 1 =
End If

Ecrire instructions Dim déclarant toutes les variables utilisées dans votre programme. Par exemple, vous pouvez écrire ces instructions Dim:

Des questions Dim (1) As String
Dim réponses (1) As String
Dim userAnswer As String
Dim nIncorrect As Integer
Dim Ncorrect As Integer
Dim i As Integer

Exécutez votre programme en appuyant "F5." Voici le programme complet pour votre commodité.

Private Sub Form1_Load (expéditeur de ByVal comme System.Object, ByVal e comme System.EventArgs) Poignées MyBase.Load

Des questions Dim (1) As String
Dim réponses (1) As String
Dim userAnswer As String
Dim nIncorrect As Integer
Dim Ncorrect As Integer
Dim i As Integer
Questions (0) = "-Qui était le nom du premier président des États-Unis?"-
des questions (1) = "-Quel est le produit de 3 à 17 ans?"-
réponses (0) = "-Washington"-
réponses (1) = "-51"-
Pour i = 0 à UBound (questions)
userAnswer = InputBox (les questions (i))
Si userAnswer lt; gt; réponses (i) Puis
MsgBox ("-incorrect. La bonne réponse est "- &réponses Amp (i))
nIncorrect + = 1
Autre
MsgBox ("-Correct!"-)
Ncorrect + 1 =
End If
I Suivant
MsgBox ("-Votre score est "- &Amp Ncorrect &Amp "- corriger sur "- &Amp UBound (questions) + 1 &Amp "- des questions."-)
End Sub