Lav en quiz i Visual Basic ved hjælp af en For Next løkke til at bede quiz s deltager med et spørgsmål , sammenligne hendes svar med den rigtige, og logge hendes fortsatte score. Du kan lave sådan en quiz med blot en barebones brugergrænseflade , der beskæftiger InputBox og MsgBox funktioner til at kommunikere med quiz deltager. For en mere attraktiv præsentation , designe en formular med Visual Basic er " Form designer" og kontrollen i sin "værktøjskasse " palette , såsom " Button " og " tekstfeltet " kontrol. Instruktioner
1
Åbn VB programmering vinduet og skrive erklæringer tildele teksten på hver af dine quiz spørgsmål til et element i en streng array. For eksempel kan du skrive disse udtalelser : "Hvem var den sidste navnet på den første amerikanske præsident "
spørgsmål ( 0 ) = spørgsmål ( 1) = "Hvad er produktet af 3. og 17. ? "
2
Skriv udsagn tildele teksten hvert svar til de elementer i en anden streng array. For de spørgsmål, der er angivet i trin et , kan du skrive disse udsagn :
svar (0) = " Washington " svar (1 ) = "51"
3 < p > Skriv en for Next løkke , der viser spørgsmål og beder brugeren om svar. For eksempel kan du skrive følgende for næste løkke.
For i = 0 til UBound ( spørgsmål) userAnswer = InputBox ( spørgsmål ( i)) Næste jeg
4
Skriv udsagn at sammenligne brugerens svar med det korrekte svar . For eksempel kan du skrive de erklæringer i slutningen af dette trin. Disse udsagn sammenligner brugerens svar på det sande svar , derefter spore spillerens score ved at øge værdien af variablerne " forkerte " og " forkert ".
P Hvis userAnswer <> svar ( i) ThenMsgBox ( " Forkert . Det rigtige svar er" & svar ( i)) nIncorrect + = 1ElseMsgBox ( "Correct !") nCorrect + = 1End Hvis
5
Skriv Dim udsagn erklære alle variabler, der anvendes i dit program . For eksempel kan du skrive disse Dim udsagn :
Dim spørgsmål ( 1 ) As StringDim svar (1) As StringDim userAnswer As StringDim nIncorrect Som IntegerDim nCorrect Som IntegerDim i As Integer
6
Kør dit program ved at trykke på " F5 ". Her er den komplette program for din bekvemmelighed.
Private Sub Form1_Load ( ByVal afsender som System.Object , ByVal e som System.EventArgs ) Handles MyBase.LoadDim spørgsmål (1) Som StringDim svar (1) As StringDim userAnswer As StringDim nIncorrect Som IntegerDim nCorrect Som IntegerDim i Da Integerquestions (0) = "Hvem var den sidste navnet på den første amerikanske præsident ?" spørgsmål ( 1) = "Hvilken er produktet af 3. og 17. ? " svar (0) =" Washington "svar (1 ) = " 51 " for i = 0 Til UBound ( spørgsmål) userAnswer = InputBox ( spørgsmål ( i)) Hvis userAnswer < > svar ( i) ThenMsgBox ( " Forkert . Det rigtige svar er" & svar ( i)) nIncorrect + = 1ElseMsgBox ( "Correct !") nCorrect + = 1End IfNext iMsgBox ( " Din score er" , " . spørgsmål " & nCorrect & " korrigere ud af " & UBound (spørgsmål ) + 1 & ) End Sub