Codigo de la calculadora (Por Denu y Vicky)

Private Sub borrar_Click()
visor.Caption = ""
End Sub
Private Sub cinco_Click()
visor.Caption = visor.Caption + "5"
End Sub
Private Sub coma_Click()
visor.Caption = visor.Caption + "."
End Sub
Private Sub cuatro_Click()
visor.Caption = visor.Caption + "4"
End Sub
Private Sub dividido_Click()
auxiliar1.Caption = visor.Caption
auxiliar2.Caption = "/"
visor.Caption = ""
End Sub
Private Sub dos_Click()
visor.Caption = visor.Caption + "2"
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Label2_Click()
End Sub
Private Sub igual_Click()
If auxiliar2.Caption = "+" Then
visor.Caption = Val(auxiliar1) + Val(visor.Caption)
auxiliar1.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "-" Then
visor.Caption = Val(auxiliar1) - Val(visor.Caption)
auxiliar1.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "*" Then
visor.Caption = Val(auxiliar1) * Val(visor.Caption)
auxiliar1.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "/" Then
visor.Caption = Val(auxiliar1) / Val(visor.Caption)
auxiliar1.Caption = ""
auxiliar2.Caption = ""
End If
End Sub
Private Sub mas_Click()
auxiliar1.Caption = visor.Caption
auxiliar2.Caption = "+"
visor.Caption = ""
End Sub
Private Sub menos_Click()
auxiliar1.Caption = visor.Caption
auxiliar2.Caption = "-"
visor.Caption = ""
End Sub
Private Sub nueve_Click()
visor.Caption = visor.Caption + "9"
End Sub
Private Sub ocho_Click()
visor.Caption = visor.Caption + "8"
End Sub
Private Sub por_Click()
auxiliar1.Caption = visor.Caption
auxiliar2.Caption = "*"
visor.Caption = ""
End Sub
Private Sub seis_Click()
visor.Caption = visor.Caption + "6"
End Sub
Private Sub siete_Click()
visor.Caption = visor.Caption + "7"
End Sub
Private Sub tres_Click()
visor.Caption = visor.Caption + "3"
End Sub
Private Sub uno_Click()
visor.Caption = visor.Caption + "1"
End Sub