Diseño:
Código para lo botones:
Option Explicit
Private Sub cmdDiv_Click()txtResult.Text = Val(txtOper1.Text) / Val(txtOper2.Text) lblOp.Caption = "/"
End Sub
Para los demás botones cambiar solo el operador (*, - , +)
Para el botón de limpiar es el siguiente código:
Private Sub Command5_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Comentarios
Publicar un comentario