Hvordan lage en Quiz i Visual Basic

Lag en quiz i Visual Basic ved hjelp av en for neste løkke til å spørre quiz er konkurrent med et spørsmål, sammenligne hennes svar med den riktige, og logge hennes pågående poengsum. Du kan lage en slik quiz med bare en barebones brukergrensesnitt som benytter InputBox og MsgBox funksjoner for å kommunisere med quiz konkurrent. For en mer attraktiv presentasjon, utforme et skjema med Visual Basic er "Form designer" og kontrollene i sin "Verktøykasse" paletten, slik som "Button" og "tekstboksen" kontroller.

Bruksanvisning

1 Åpne VB programmeringsvinduet og skrive uttalelser tildele teksten i hver av quiz spørsmål til et element i en strengtabell. For eksempel kan du skrive disse setningene:

spørsmål (0) = "Hvem var den siste navnet på den første amerikanske presidenten?"
på spørsmål (1) = "Hva er produktet av tre og 17?"

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

answers(0) = "Washington"
answers(1) = "51"

3 Skriv en for neste loop som viser spørsmål og ber brukeren om svar. For eksempel kan du skrive følgende for neste loop.

For i = 0 til 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 utsagnene på slutten av dette trinnet. Disse uttalelsene sammenligne brukerens svar på den sanne svaret, deretter spore spillerens poengsum ved å øke verdien av variablene "feil" og "feil".

Hvis userAnswer <> svar (i) Deretter

MsgBox("Incorrect. The correct answer is " & answers(i))
nIncorrect += 1
Else
MsgBox("Correct!")
nCorrect += 1
End If

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

Dim questions(1) As String
Dim answers(1) As String
Dim userAnswer As String
Dim nIncorrect As Integer
Dim nCorrect As Integer
Dim i As Integer

6 Kjør programmet ved å trykke på "F5". Her er den komplette programmet for enkelhets skyld.

Private Sub Form1_Load (ByVal sender As System.Object, ByVal e As System.EventArgs) Håndtak MyBase.Load

Dim questions(1) As String
Dim answers(1) As String
Dim userAnswer As String
Dim nIncorrect As Integer
Dim nCorrect As Integer
Dim i As Integer
questions(0) = "Who was the last name of the first US President?"
questions(1) = "What is the product of 3 and 17?"
answers(0) = "Washington"
answers(1) = "51"
For i = 0 To UBound(questions)
userAnswer = InputBox(questions(i))
If userAnswer <> answers(i) Then
MsgBox("Incorrect. The correct answer is " & answers(i))
nIncorrect += 1
Else
MsgBox("Correct!")
nCorrect += 1
End If
Next i
MsgBox("Your score is " & nCorrect & " correct out of " & UBound(questions) + 1 & " questions.")
End Sub