Cómo hacer un Quiz en Visual Basic

Hacer una prueba en Visual Basic utilizando un bucle For Next para impulsar concursante del concurso de preguntas con una pregunta, comparar su respuesta con la correcta, y registrar su puntuación provisional. Se puede hacer una prueba de este tipo con sólo una interfaz de usuario barebones que emplea las funciones InputBox y MsgBox para comunicarse con el concursante concurso. Para una presentación más atractiva, diseñar un formulario con "diseñador de formularios" de Visual Basic y los controles en su paleta "caja de herramientas", como el "botón" y "controles de cuadro de texto".

Instrucciones

1 Abra la ventana de programación VB y escribir declaraciones asignar el texto de cada una de las preguntas de su concurso a un elemento de una matriz de cadenas. Por ejemplo, puede escribir estas afirmaciones:

preguntas (0) = "¿Quién fue el último nombre del primer presidente de Estados Unidos?"
preguntas (1) = "¿Cuál es el producto de 3 y 17?"

2 Escribe declaraciones asignar el texto de cada respuesta a los elementos de otra matriz de cadenas. Para las preguntas que figuran en el paso uno, puede escribir estas afirmaciones:

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

3 Para escribir un ciclo siguiente que muestra las preguntas y solicita al usuario respuestas. Por ejemplo, puede escribir el siguiente bucle For Next.

Para i = 0 a UBound (preguntas)
userAnswer = InputBox (preguntas (i))
Siguiente yo

4 Escribir declaraciones que comparan la respuesta del usuario con la respuesta correcta. Por ejemplo, puede escribir las declaraciones al final de este paso. Estas declaraciones comparar la respuesta del usuario a la respuesta verdadera, a continuación, realizar un seguimiento de la puntuación del jugador mediante el aumento del valor de las variables "incorrecto" y "incorrectas".

Si userAnswer <> respuestas (i) A continuación,

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

5 Escribir instrucciones Dim declaran todas las variables utilizadas en el programa. Por ejemplo, puede escribir estas instrucciones Dim:

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 Ejecutar el programa pulsando la tecla "F5". Aquí está el programa completo para su conveniencia.

Private Sub Form1_Load (remitente de ByVal como System.Object, ByVal e As System.EventArgs) Maneja 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