Red de conocimiento informático - Conocimiento sistemático - ¡Por favor ayúdenme a hacer un pequeño programa de aritmética oral! ¡Gracias!

¡Por favor ayúdenme a hacer un pequeño programa de aritmética oral! ¡Gracias!

Opción explícita

Subcomando privado1_Click()

Si Len(Text1.Text) = 0 Entonces 'Determinar si texto1 está vacío

Text5.ForeColor = vbRed 'Establece la palabra del mensaje en rojo

Text5.Text = "No has ingresado el primer sumando"

Text1.SetFocus

Salir de Sub

End If

Si no esNumeric(Text1.Text) Entonces 'Juzga si text1 es un número

Text5.ForeColor = vbRed 'Establece el mensaje palabra en rojo

Text5.Text = "El primer sumando no es un número"

Text1.SetFocus

Salir Sub

Fin If

Si Len(Text2.Text) = 0 Entonces 'Juzga si text2 está vacío

Text5.ForeColor = vbRed 'Establece la palabra de aviso en rojo

Text5.Text = "No has ingresado el segundo sumando"

Text2.SetFocus

Salir Sub

Fin si

Si no IsNumeric(Text2.Text) Luego 'Juzga si text2 es un número

Text5.ForeColor = vbRed 'Establece la palabra del mensaje en rojo

Text5.Text = "El segundo sumando no es un número"

Text2.SetFocus

Salir Sub

Fin

Si CInt(Text1.Text) CInt(Text2.Text ) = CInt(Text3.Text) Then 'If text1 text2=text3

Text5.ForeColor = vbBlack 'Establece la palabra del mensaje en negro

Text5.Text = "Felicitaciones, tienes la respuesta correcta! "

'Puntos extra

Texto4.Text = CInt(Text4.Text) 1

'Nueva pregunta

NuevoCálculo

Else

Text5.ForeColor = vbRed 'Establece la palabra de aviso en rojo

Text5.Text = "Incorrecto, ¡sigue con el buen trabajo! "

Text1.SetFocus 'Mueve el cursor a text1 para modificarlo fácilmente

Fin I

f

End Sub

'Publicar una nueva pregunta

Private Sub NewCalculation()

Text1.Text = "" 'Borrar texto1

Text2.Text = "" 'Borrar texto2

Temporizador aleatorio 'Inicializar número aleatorio

Text3.Text = CInt(Rnd * 100 1) 'Obtener un 1 -100 número aleatorio

Text1.SetFocus 'Mueve el cursor a text1, listo para aceptar entradas

End Sub

Private Sub Command2_Click()

'Fin del programa

Fin

End Sub

Private Sub Form_Load()

'Deja que se muestre el contenido del formulario

Form1.Show

'Borrar el contenido de cada cuadro de entrada

Text1.Text = ""

Text2.Text = " "

Text3.Text = ""

Text4.Text = "0"

Text5.Text = ""

'Nuevo pregunta

Nuevo cálculo

End Sub