Machen Sie ein Quiz in Visual Basic mit einer For- Next-Schleife , um das Quiz der Kandidat mit einer Frage aufgefordert , zu vergleichen, ihre Antwort mit der richtigen , und melden ihre laufenden Punktzahl . Sie können wie ein Quiz mit nur einem Barebone- Benutzeroberfläche, die InputBox und MsgBox Funktionen, um mit dem Quiz Teilnehmer kommunizieren beschäftigt machen . Für eine ansprechende Präsentation , ein Formular entwerfen mit Visual Basic " Formular-Designer " und die Kontrollen in seinem "Tool -Box " Palette , wie die "Button" und "Text Box " Kontrollen . Anleitung
1

Öffnen Sie die VB-Programmierung Fenster und schreiben Aussagen Zuweisen der Text jedes Ihrer Quiz Fragen zu einem Element eines String-Array . Zum Beispiel können Sie schreiben diese Aussagen : "Wer war der letzte Name des ersten US-Präsidenten "

Fragen (0) = Fragen (1) = "Was ist das Produkt von 3 und 17 ? "
2

schreiben Aussagen Zuordnung der Wortlaut der Antwort auf die Elemente eines anderen String-Array . Für die Fragen in Schritt eins gegeben hat, kann Sie schreiben diese Aussagen :

Antworten (0) = "Washington" Antworten (1) = "51"
3 < p > schreiben Sie eine For Next -Schleife, die die Fragen stellt und fordert den Benutzer für Antworten. Zum Beispiel können Sie Folgendes schreiben For Next -Schleife.

For i = 0 To UBound ( Fragen ) userAnswer = InputBox ( Fragen (i)) Next i
4

Write-Anweisungen das vergleichen der Antwort des Benutzers mit der richtigen Antwort . Zum Beispiel kann man die Aussagen am Ende dieses Schrittes zu schreiben. Diese Aussagen vergleichen die Antwort des Benutzers auf die wahre Antwort, dann verfolgen das Ergebnis des Spielers durch die Erhöhung der Wert der Variablen " falsch " und " falsch ".

Wenn userAnswer <> Antworten ( i) ThenMsgBox ( " falsch. Die richtige Antwort ist" & Antworten (i)) nIncorrect + = 1ElseMsgBox ( " richtig! " ) ncorrect + = 1End Wenn
5

schreiben Dim-Anweisungen erklärt alle Variablen in Ihrem Programm verwendet . Zum Beispiel können Sie schreiben diese Dim-Anweisungen :

Dim Fragen (1) Als StringDim Antworten (1) Als StringDim userAnswer Wie StringDim nIncorrect Wie IntegerDim ncorrect Wie IntegerDim i As Integer
6

Führen Sie das Programm mit der Taste " F5 . " Hier ist das komplette Programm für Ihre Bequemlichkeit.

private Sub Form1_Load (ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles MyBase.LoadDim Fragen (1) Als StringDim Antworten (1) Als StringDim userAnswer Wie StringDim nIncorrect Wie IntegerDim ncorrect Wie IntegerDim i As Integerquestions (0) = "Wer war der Nachname des ersten US-Präsidenten ? "-Fragen (1) = " Was ist das Produkt von 3 und 17 ? " Antworten (0) = " Washington " Antworten (1) = " 51 " For i = 0 To UBound ( Fragen ) userAnswer = InputBox ( Fragen (i )) Wenn userAnswer < > Antworten ( i) ThenMsgBox ( " falsch. Die richtige Antwort ist" & Antworten (i)) nIncorrect + = 1ElseMsgBox ( " richtig! " ) ncorrect + = 1End IfNext iMsgBox ( " Ihr Ergebnis ist " ; . " Fragen " & ncorrect & " korrigieren von " & UBound ( Fragen ) + 1 & ) End Sub