Maak een quiz in Visual Basic met behulp van een voor Next-lus om deelnemer van de quiz met een vraag prompt , vergelijk haar antwoord met de juiste is , en meldt haar lopende score . Je kan zo'n quiz te maken met slechts een barebones gebruikersinterface die de InputBox en MsgBox functies om te communiceren met de quiz deelnemer telt . Voor een meer aantrekkelijke presentatie , een formulier ontwerpen met Visual Basic " Vorm ontwerper" en de controles in de " gereedschapskist " palet , zoals de " Button " en " Tekstvak " controles. Instructies 1 Open het programmeervenster VB en schrijf verklaringen toewijzen van de tekst van elk van de vragen van uw quiz op een onderdeel van een string array. Bijvoorbeeld , kunt u deze uitspraken schrijft : "Wie was de achternaam van de eerste Amerikaanse president " vragen ( 0 ) = vragen ( 1 ) = " Wat is het product van 3 en 17 ? " Schrijf verklaringen 2 toewijzen van de tekst van elk antwoord op de elementen van de andere string array. Voor de vragen gegeven in stap een , kunt u deze statements te schrijven : antwoorden ( 0 ) = " Washington " antwoorden ( 1 ) = " 51 " 3 Schrijf een For Next lus die de vragen geeft en vraagt de gebruiker naar antwoorden . Bijvoorbeeld , kunt u de volgende Voor Next -lus schrijven . Voor i = 0 To UBound ( vragen ) userAnswer = InputBox ( vragen ( i ) ) Next i Schrijf verklaringen 4 dat het antwoord van de gebruiker te vergelijken met het juiste antwoord . Zo kan je de verklaringen aan het einde van deze stap te schrijven . Deze verklaringen vergelijken antwoord van de gebruiker om het ware antwoord , dan volgen score van de speler door het verhogen van de waarde van de variabelen " onjuist " en " onjuist . " Als userAnswer < > antwoorden ( i ) ThenMsgBox ( " Onjuist . Het juiste antwoord is " & antwoorden ( i ) ) nIncorrect + = 1ElseMsgBox ( " correct ! " ) nCorrect + = 1End Als 5 Schrijf Dim verklaringen verklaren alle variabelen die in uw programma . Bijvoorbeeld , kunt u schrijven deze Dim uitspraken : Dim vragen ( 1 ) Zoals StringDim antwoorden ( 1 ) Zoals StringDim userAnswer Zoals StringDim nIncorrect Zoals IntegerDim nCorrect Zoals IntegerDim I als Geheel 6 Run uw programma door op " F5 . " Hier is het volledige programma voor uw gemak . Private Sub Form1_Load ( ByVal afzender als System.Object , ByVal e als System.EventArgs ) Handles MyBase.LoadDim vragen ( 1 ) Zoals StringDim antwoorden ( 1 ) Zoals StringDim userAnswer Zoals StringDim nIncorrect Zoals IntegerDim nCorrect Zoals IntegerDim i Zoals Integerquestions ( 0 ) = " Wie was de achternaam van de eerste Amerikaanse president ? "-vragen ( 1 ) = " Welke is het product van 3 en 17 ? " antwoorden ( 0 ) = " Washington " antwoorden ( 1 ) = " 51 " For i = 0 To UBound ( vragen ) userAnswer = InputBox ( vragen ( i ) ) Als userAnswer < > antwoorden ( i ) ThenMsgBox ( " Onjuist . Het juiste antwoord is " & antwoorden ( i ) ) nIncorrect + = 1ElseMsgBox ( " correct ! " ) nCorrect + = 1End IfNext iMsgBox ( " Je score is " ; " . vragen " & nCorrect & " corrigeren van " & UBound ( vragen ) + 1 & ) End Sub
|