Solucionador de problemas de aritmética oral para sexto grado de primaria
Opción explícita
Marcar myre como un número entero
Subcomando privado 1_Click()
if val(text 1 . text) = myrethen msgbox "Sí!" "Resultado" Else MsgBox "¡Está mal!",, "Resultado"
zhzsucyg
Texto1. SetFocus
Conector final
Subform_Load privado()
Comando 1. Caption = "Siguiente pregunta"
zhzsucyg
Conector final
Private Sub zhzsucyg()
Dim myA es un número entero, myB es Entero, myOp es un número entero
Aleatorización (temporizador)
myA = Int(Rnd * 101)
myB = Int(Rnd * 101)
p>miOp = Int(Rnd * 4) + 1
Texto1. texto = " "
Etiqueta1. Título = " "
Seleccione Caso myOp
Caso 1
Etiqueta1. myA & amp"+" & amp;myB & amp"="
myre = myA + myB
Caso 2
Etiqueta1. myA & amp "-" & amp; myB & amp"="
myre = myA - myB
Caso 3
Etiqueta1. myA &"×"&myB&"="
myre = myA * myB
Caso 4
Etiqueta1. myA & amp""& ampmyB & amp"="
myre = myA / myB
Finalizar selección
Finalizar adaptador