Lag en quiz i Visual Basic ved hjelp av en for neste loop for å be quiz konkurrent med et spørsmål , sammenligne hennes svar med den riktige, og logge hennes pågående score. Du kan gjøre en slik quiz med bare en barebones brukergrensesnitt som sysselsetter InputBox og MsgBox funksjoner for å kommunisere med quiz konkurrent . For en mer attraktiv presentasjon , utformer et skjema med Visual Basic er " Form designer" og kontrollene i sin " Verktøykasse " palett , slik som " Button" og "tekstboksen "-kontroller . Instruksjoner
en

Åpne VB programmering vinduet og skrive uttalelser tildele teksten i hver av dine quiz spørsmål til et element av en streng array. For eksempel kan du skrive disse utsagnene : «Hvem var den siste navnet på den første amerikanske presidenten "

spørsmål ( 0 ) = spørsmål ( 1 ) = " Hva er produktet av 3 og 17 ? "
2

Skriv uttalelser tildele teksten i hvert svar til elementer av en annen streng array. For spørsmål gitt i trinn én , kan du skrive disse utsagnene :

svar ( 0 ) = " Washington " svar ( 1 ) = " 51 "
3 < p > Skriv en for neste loop som viser spørsmålene og ber brukeren om svar . For eksempel kan du skrive følgende for neste loop.

For i = 0 For å UBound ( spørsmål) userAnswer = InputBox ( spørsmål ( i) ) Neste jeg
4

Skriv uttalelser som sammenligner brukerens svar med det riktige svaret . For eksempel kan du skrive uttalelsene på slutten av dette trinnet . Disse uttalelsene sammenligne brukerens svar på den sanne svaret , deretter spore spillerens score ved å øke verdien av variablene " feil " og " feil ".
P Hvis userAnswer <> svar ( i) ThenMsgBox ( " feil . Det riktige svaret er" og svar ( i) ) nIncorrect + = 1ElseMsgBox ( " riktig! " ) nriktige + = 1End Hvis
5

Skriv Dim uttalelser erklære alle variablene som brukes i programmet . For eksempel kan du skrive disse Dim uttalelser :

Dim spørsmål ( 1 ) Som StringDim svar ( 1 ) Som StringDim userAnswer Som StringDim nIncorrect Som IntegerDim nriktige Som IntegerDim i As Integer
6

Kjør programmet ved å trykke " F5 . « Her er den komplette program for din bekvemmelighet.

Private Sub Form1_Load ( ByVal avsenderen som System.Object , ByVal e Som System.EventArgs ) Håndtak MyBase.LoadDim spørsmål ( 1 ) Som StringDim svar ( 1 ) Som StringDim userAnswer Som StringDim nIncorrect Som IntegerDim nriktige Som IntegerDim jeg Som Integerquestions ( 0 ) = "Hvem var den siste navnet på den første amerikanske presidenten ?" spørsmål ( 1 ) = " Hva er produktet av tre og 17? " svar ( 0 ) =" Washington "svar ( 1 ) = " 51 " for i = 0 For å UBound ( spørsmål) userAnswer = InputBox ( spørsmål ( i) ) Hvis userAnswer < > svar ( i) ThenMsgBox ( " feil . Det riktige svaret er" og svar ( i) ) nIncorrect + = 1ElseMsgBox ( " riktig! ") nriktige + = 1End IfNext iMsgBox ( " Din score er " ; " . spørsmål " & nriktige & " korrigere ut av" & UBound ( spørsmål) + 1 &) End Sub