Hacer una prueba en Visual Basic mediante un bucle For Next para solicitar concursante del concurso con una pregunta, comparar su respuesta con la correcta, y registrar su puntuación actual . Usted puede hacer esta prueba con sólo una interfaz de usuario barebones que emplea las funciones MsgBox InputBox y comunicarse con el concursante concurso. Para una presentación más atractiva , el diseño de un formulario con el " Diseñador de formularios " de Visual Basic y los controles en su "caja de herramientas " de la paleta , como el control de la "caja de texto" "Botón " y . Instrucciones
1

Abra la ventana de programación VB y escribir declaraciones asignar el texto de cada una de las preguntas del cuestionario a un elemento de una matriz de cadenas . Por ejemplo , puede escribir estas declaraciones : "¿ Quién fue el último nombre del primer presidente de EE.UU. " preguntas

( 0 ) = preguntas ( 1 ) = " ¿Cuál es el producto de 3 y 17 ? "
2 declaraciones Escriba

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

respuestas ( 0 ) = Respuestas " Washington " ( 1 ) = " 51 "
3 < p > Escribir un bucle For Next que muestra las preguntas y solicita al usuario respuestas. Por ejemplo , puede escribir el siguiente bucle For Next .

Para i = 0 To UBound ( preguntas) userAnswer = InputBox ( preguntas ( i)) Next i
4 declaraciones Escriba

se compara 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 verdadera respuesta, seguimiento de la cuenta del jugador , aumentando el valor de las variables " incorrectas " y " correctos ".

Si userAnswer <> respuestas ( i ) ThenMsgBox ( " incorrecta . La respuesta correcta es " & respuestas ( i)) nIncorrect + = 1ElseMsgBox ( " ¡Correcto! ") NSTALACIØN + = 1End Si
5

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

( 1 ) Como respuesta StringDim ( 1 ) Como StringDim userAnswer Como StringDim nIncorrect Como IntegerDim NSTALACIØN Como IntegerDim i As Integer
6

Ejecute el programa con la tecla " F5 ". Aquí está el programa completo para su conveniencia.

Private Sub Form1_Load ( ByVal remitente como System.Object , ByVal e como System.EventArgs ) Handles preguntas MyBase.LoadDim ( 1 ) Como respuesta StringDim ( 1 ) Como StringDim userAnswer Como StringDim nIncorrect Como IntegerDim NSTALACIØN Como IntegerDim i Como Integerquestions ( 0 ) = " ¿Quién fue el último nombre del primer presidente de EE.UU. ?" preguntas ( 1 ) = " ¿Qué es el producto de 3 y 17 ? " respuestas ( 0 ) =" Washington "respuestas ( 1 ) =" 51 " For i = 0 To UBound ( preguntas) userAnswer = InputBox ( preguntas ( i)) Si userAnswer < > respuestas ( i ) ThenMsgBox ( " incorrecta . La respuesta correcta es " & respuestas ( i)) nIncorrect + = 1ElseMsgBox ( " ¡Correcto! ") NSTALACIØN + = 1End IfNext iMsgBox ( " Su calificación es " ; " . preguntas " y NSTALACIØN y " corregir de " & UBound ( preguntas) + 1 & ) End Sub