Jede Frage in einer Multiple-Choice- Test besteht aus einer Frage selbst und verschiedene Antworten , von denen nur eine richtig ist. Sie können einen Multiple-Choice- Test in Visual Basic mit Etiketten , die Fragen , Radio-Buttons für die möglichen Antworten und Button-Steuerelemente angezeigt werden , um zwischen verschiedenen Fragen zu navigieren. Im Code verwenden Arrays , die Fragen und Antworten, die der Benutzer macht speichern und pflegen eine Zählvariable zu verfolgen, was in Frage der Benutzer auf zu halten. Am Ende des Tests , markieren Sie die Antworten des Benutzers und zeigt das Ergebnis auf dem Formular. Anleitung
1
Öffnen Sie ein neues Visual Basic-Projekt . Fügen Sie zwei Etiketten, drei Radio-Buttons und zwei Button-Steuerelemente auf das Formular. Ziehen Sie die zwei Etiketten an die Spitze mit Label1 oben auf Label2 . Ziehen RadioButton1 , RadioButton2 und RadioButton3 antreten vertikal unter den Etiketten . Ziehen Sie die beiden Schaltflächen unterhalb der Radio-Buttons mit Button1 auf der linken und auf der rechten Button2 .
2
Presse "F7" , um den Code zu öffnen. Geben Sie den folgenden Code auf Klassenebene :
Dim Fragen (2, 4 ) As String Dim
Antworten (2 ) As String Dim
quesNum As Integer
Die erste Zeile wird ein zweidimensionales Array . Die erste Dimension ist für jede Frage und die zweite Dimension ist für die Frage selbst, drei Antwortmöglichkeiten und die richtige Antwort . Die zweite Zeile erstellt ein Array , um die Antworten des Benutzers zu speichern. Die dritte Zeile erzeugt einen Zähler Variable, die Spur hält der Frage der Benutzer auf
3
Geben Sie den folgenden Code: .
Private Sub GetQuestions ()
Fragen = New String ( , ) { {" Wie viele Farben sind in einem Regenbogen ? ", " 5 ", " 6 ", "7 ", "7 "}, { _
"Wer Hauptrollen in Fluch der Karibik ? "," Johnny Depp "," John Malkovich "," John Cusack "," Johnny Depp "}, _
{" Was ist die Hauptstadt von Florida ? "," Miami "," Tallahassee "," Jacksonville "," Tallahassee "}}
End Sub
