Cómo hacer un concurso en Visual Basic

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