|
Faire un quiz en Visual Basic en utilisant une boucle For Next pour inciter le candidat du quiz avec une question, comparer sa réponse avec la bonne, et identifier son score en cours . Vous pouvez faire une telle quiz avec seulement une interface utilisateur de barebones qui emploie le InputBox et MsgBox fonctions pour communiquer avec le candidat quiz. Pour une présentation plus attrayante , de concevoir une forme de « concepteur de formulaire» de Visual Basic et les commandes de sa palette " Outil de boîte " , comme le " bouton" et " zone de texte " contrôles. Instructions
1 Ouvrez la fenêtre de programmation VB et écrire des déclarations attribuant le texte de chacune des questions de votre questionnaire pour un élément d'un tableau de chaînes . Par exemple , vous pouvez écrire ces déclarations : « Qui était le nom du premier président américain "
Questions (0) = questions ( 1) = "Quel est le produit de 3 et 17 ? "
2 écrire des déclarations attribuant le texte de chaque réponse aux éléments d'un autre tableau de chaînes . Pour les questions figurant dans la première étape, vous pouvez écrire ces déclarations : Photos réponses (0 ) = réponses «Washington» ( 1) = " 51"
3 Ecrire un boucle For Next qui affiche les questions et invite l'utilisateur pour obtenir des réponses . Par exemple , vous pouvez écrire ce qui suit boucle For Next .
Pour i = 0 à LimiteSup ( questions) userAnswer = InputBox (questions ( i)) Ensuite, je
4 écrire des déclarations que comparer la réponse de l' utilisateur avec la réponse correcte. Par exemple , vous pouvez écrire les comptes à 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 " incorrectes " et " incorrect ".
Si userAnswer <> réponses ( i) ThenMsgBox (« incorrect. La bonne réponse est " & réponses ( i)) nIncorrect + = 1ElseMsgBox ( " correct! " ) NSTALLATION + = 1End Si
5 Ecrire instructions Dim déclarant toutes les variables utilisées dans votre programme . Par exemple , vous pouvez écrire ces instructions Dim : Photos des questions Dim (1) StringDim réponses (1) StringDim userAnswer Comme StringDim nIncorrect Comme IntegerDim NSTALLATION Comme IntegerDim i As Integer
6 Lancez votre programme en appuyant sur la touche "F5 ". Voici le programme complet pour votre commodité.
Private Sub Form1_Load ( expéditeur de ByVal comme System.Object , ByVal e As System.EventArgs ) Handles questions MyBase.LoadDim (1) Comme StringDim réponses (1) StringDim userAnswer Comme StringDim nIncorrect Comme IntegerDim NSTALLATION Comme IntegerDim i Comme Integerquestions (0) = " Qui était le nom du premier président américain ?" Questions (1 ) = " Ce est le produit de 3 et 17 ans? " réponses (0 ) =" Washington " réponses ( 1) =" 51 " For i = 0 To UBound ( questions) userAnswer = InputBox (questions ( i)) Si userAnswer < > réponses ( i) ThenMsgBox (« incorrect. La bonne réponse est " & réponses ( i)) nIncorrect + = 1ElseMsgBox ( " correct! " ) NSTALLATION + = 1End IfNext iMsgBox ( " Votre score est " ; " . des questions " et NSTALLATION et «corriger sur " & UBound ( questions) + 1 & ) End Sub
|
