Red de conocimiento informático - Problemas con los teléfonos móviles - Pregunta VB, tres etiquetas, un cuadro de texto, dos botones de comando, escriba un programa para que la computadora haga preguntas automáticamente y determine si es correcto o incorrecto, haga clic en el botón de pregunta.

Pregunta VB, tres etiquetas, un cuadro de texto, dos botones de comando, escriba un programa para que la computadora haga preguntas automáticamente y determine si es correcto o incorrecto, haga clic en el botón de pregunta.

Private Sub command1_click() 'Haz una pregunta

Aleatorizar

Label1 = Int(Rnd * 9) 1 'Si quieres dos dígitos, cambia 9 a 99

Aleatorización

Etiqueta3 = Int(Rnd * 9) 1

Seleccionar Caso Int(Rnd * 4) 1

Caso 1

Etiqueta2 = " "

Caso 2

Etiqueta2 = "-"

Caso 3

Etiqueta2 = "-"