Gör en frågesport i Visual Basic med hjälp av en för nästa slinga för att uppmana frågesport tävlande med en fråga , jämföra sitt svar med den rätta , och log sitt pågående värdering . Du kan göra en sådan frågesport med bara en barebones användargränssnitt som utnyttjar InputBox och MsgBox funktioner för att kommunicera med frågesport tävlande . För en mer attraktiv presentation , designa ett formulär med Visual Basic : s " Form Designer " och kontrollerna i sin "verktygslåda" paletten , såsom " Button " och " Textruta " kontroller . Instruktioner
1
Öppna VB programmering fönstret och skriva uttalanden som tilldelar texten för alla dina frågesport frågor till en del av en sträng array . Till exempel kan du skriva dessa uttalanden : " Vem var den sista namnet på den första amerikanska presidenten "
frågor ( 0 ) = frågor ( 1 ) = " Vad är produkten av 3 och 17 ? "
2
Skriv uttalanden tilldelar texten för varje svar till de delar av en annan sträng array . För de frågor som anges i steg ett , kan du skriva dessa uttalanden :
svar ( 0 ) = " Washington " svar ( 1 ) = " 51 " Addera 3
Skriv en For Next loop som visar de frågor och uppmanar användaren för svar . Till exempel , kan du skriva följande för nästa slinga .
För i = 0 Till UBound ( frågor ) userAnswer = InputBox ( frågorna ( i) ) Next I
4
Skriv uttalanden som jämför användarens svar med det korrekta svaret . Till exempel kan du skriver de uttalanden i slutet av detta steg. Dessa uttalanden jämför användarens svar på det sanna svaret , sedan spåra spelarens poäng genom att öka värdet av variablerna " felaktiga " och " fel ".
P Om userAnswer < > svar ( i) ThenMsgBox ( " Fel . Det rätta svaret är " & svar ( i) ) nIncorrect + = 1ElseMsgBox ( " korrekt ! " ) felakt g + = 1End Om
5
Skriv Dim uttalanden förklara alla variabler som används i ditt program . Till exempel kan du skriva dessa Dim uttalanden :
Dim frågor ( 1 ) As StringDim svar ( 1 ) As StringDim userAnswer As StringDim nIncorrect Som IntegerDim felakt g Som IntegerDim I As Integer
6
Kör ditt program genom att trycka på " F5 ". Här är den kompletta program för din bekvämlighet .
Private Sub Form1_Load ( ByVal avsändaren som System.Object , ByVal e som System.EventArgs ) Hanterar MyBase.LoadDim frågor ( 1 ) Som StringDim svar ( 1 ) As StringDim userAnswer As StringDim nIncorrect Som IntegerDim felakt g Som IntegerDim i Som Integerquestions ( 0 ) = " Vem var den sista namnet på den första amerikanska presidenten ? " frågor ( 1 ) = " Vad är produkten av 3 och 17 ? " svar ( 0 ) = " Washington "svar ( 1 ) = " 51 " för i = 0 till UBound ( frågor ) userAnswer = InputBox ( frågorna ( i) ) Om userAnswer < > svar ( i) ThenMsgBox ( " Fel . Det rätta svaret är " & svar ( i) ) nIncorrect + = 1ElseMsgBox ( " korrekt ! " ) felakt g + = 1End IfNext iMsgBox ( " Din poäng är " ; " . frågorna " & & ELAKTIGT & " korrigera ur " & UBound ( frågor ) + 1 & ) End Sub
