Paso 1.
Poner 3 label 3 textbox y y 3 commandButton acomodarlos cada uno en su lugar y poner la informacion de cada uno segun corresponda
Los 3 label diran ingrese un numero, ingrese otro numero y resultado.
Los 3 textbox iran en blanco
Los 3 commandButton tendra cada una su funcion calcular, limpiar y salir.
Paso 2.
Ingresamos a cada commmandbutton y ponemos los siguientes codigos para que cumplan con las funciones.
Private Sub Command_calcular_Click()
Dim a, b, RESU As Integer
a = 0
b = 0
RESU = 0
End Sub
Calcular:
RESU = Val(a) + Val(b)
End Sub
Limpiar:
a = ""
b = ""
RESU = ""
a.SetFocus
End Sub
Salir:
End
End Sub
Paso 3.
Lo que aremos al final es ejecutar el programa y asi podremos ver como funciona el programa.


No hay comentarios:
Publicar un comentario