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)

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