CALCULADORA BÁSICA

Private Sub cmddivision_Click()
lbloperation.Caption = "/"

End Sub

Private Sub cmdmultiplicacion_Click()
lbloperation.Caption = "*"

End Sub

Private Sub cmdresta_Click()
lbloperation.Caption = "-"

End Sub


Private Sub cmdresultado_Click()
If lbloperation.Caption = "+" Then
lblresultado = Val(textvalor1.Text) + Val(textvalor2.Text)
Else
If lbloperation.Caption = "-" Then
lblresultado = Val(textvalor1.Text) - Val(textvalor2.Text)
Else
If lbloperation.Caption = "*" Then
lblresultado = Val(textvalor1.Text) * Val(textvalor2.Text)
Else
If lbloperation.Caption = "/" Then
lblresultado = Val(textvalor1.Text) / Val(textvalor2.Text)
End If
End If
End If
End If
End Sub

Private Sub Cmdsuma_Click()
lbloperation.Caption = "+"

End Sub