Una aplicación sencilla para ir aprendiendo.

calculadoramini_png.png

 

Private Sub CommandSuma_Click()

TextRes.Text = Val(TextOp1.Text) + Val(TextOp2.Text)

LabelOperacion.Caption = “+”

End Sub

 

 

Private Sub CommandResta_Click()

TextRes.Text = Val(TextOp1.Text) – Val(TextOp2.Text)

LabelOperacion.Caption = “-“

End Sub

 

 

Private Sub CommandProducto_Click()

TextRes.Text = Val(TextOp1.Text) * Val(TextOp2.Text)

LabelOperacion.Caption = “*”

End Sub

 

 

Private Sub CommandDivision_Click()

TextRes.Text = Val(TextOp1.Text) / Val(TextOp2.Text)

LabelOperacion.Caption = “/”

End Sub