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 = "-" p>