¡Urgente! ! ! ! ! Operación de adición de programación VB dentro de 100

¿Dim?N1,?N2,?Ztol,?tm

Privado?Sub?Command1_Click()

Aleatorio

da? =?""

tm?=?tm?1

N1?=?Int(Rnd()?*?100)

N2?= ?Int(Rnd()?*?100)

ti.Caption?=?N1?amp;?" "?amp;?N2?amp;?"="

¿Fin?Sub

Privado?Sub?Command2_Click()

pd

Fin?Sub

Sub?pd()

Si?N1? ?N2?=?Val(da)?Entonces

MsgBox?("Derecha")

'Graba un poco más, si felicidades Respuesta correcta

Ztol?=?Ztol? ?25

Else

MsgBox?("Error")

'Inténtalo de nuevo Sonido, si vienes de nuevo

Ztol?=?Ztol? ?0

Fin?Si

c1?=?" Puntuación: "?amp;?Ztol

ts.Caption?=?"Ya hecho"?amp;?tm?amp;?"道"

Fin?Sub

Privado?Sub ?da_KeyDown (¿Código clave? ¿As?Entero, ?Shift?As?Entero)

Si?Código clave?=?13?Entonces?pd

Fin?Sub