Calculadora

Este Es una calculadora, este proyecto se realizo con la siguiente programación:

Option Explicit

Private Sub cmdDiv_Click()

TxtResult.Text = Val(TxtOper1.Text) / Val(TxtOper2.Text)

lblOp.Caption = "/"

End Sub

Private Sub cmdProd_Click()

TxtResult.Text = Val(TxtOper1.Text) * Val(TxtOper2.Text)

lblOp.Caption = "*"

End Sub

Private Sub cmdResta_Click()

TxtResult.Text = Val(TxtOper1.Text) - Val(TxtOper2.Text)

lblOp.Caption = "-"

End Sub

Private Sub cmdSuma_Click()

TxtResult.Text = Val(TxtOper1.Text) + Val(TxtOper2.Text)

lblOp.Caption = "+"

End Sub