calculadora de visualbasic

Private Sub borrar_Click()auxiliar.Caption = ""End Sub
Private Sub cero_Click()auxiliar.Caption = auxiliar.Caption + "0"End Sub
Private Sub cinco_Click()auxiliar.Caption = auxiliar.Caption + "5"End Sub
Private Sub coma_Click()auxiliar.Caption = auxiliar.Caption + "."End Sub
Private Sub cuatro_Click()auxiliar.Caption = auxiliar.Caption + "4"End Sub
Private Sub dividido_Click()auxiliarnumero.Caption = auxiliar.Captionauxiliarop.Caption = "/"auxiliar.Caption = ""End Sub
Private Sub dos_Click()auxiliar.Caption = auxiliar.Caption + "2"End Sub
Private Sub igual_Click()If auxiliarop.Caption = "+" Thenauxiliar.Caption = Val(auxiliarnumero.Caption) + Val(auxiliar.Caption)auxiliarnumero.Caption = ""auxiliarop.Caption = ""End IfIf auxiliarop.Caption = "-" Thenauxiliar.Caption = Val(auxiliarnumer.Caption) - Val(auxiliar.Caption)auxilianumero.Caption = ""auxiliarop.Caption = ""End IfIf auxiliarop.Caption = "*" Thenauxiliar.Caption = Val(auxiliarnumer.Caption) * Val(auxiliar.Caption)auxilianumero.Caption = ""auxiliarop.Caption = ""End IfIf auxiliarop.Caption = "/" Thenauxiliar.Caption = Val(auxiliarnumer.Caption) / Val(auxiliar.Caption)auxilianumero.Caption = ""auxiliarop.Caption = ""End IfEnd Sub
Private Sub mas_Click()auxiliarnumero.Caption = auxiliar.Captionauxiliarop.Caption = "+"auxiliar.Caption = ""End Sub
Private Sub menos_Click()auxiliarnumero.Caption = auxiliar.Captionauxiliarop.Caption = "-"auxiliar.Caption = ""End Sub
Private Sub nueve_Click()auxiliar.Caption = auxiliar.Caption + "9"End Sub
Private Sub ocho_Click()
auxiliar.Caption = auxiliar.Caption + "8"End Sub
Private Sub por_Click()auxiliarnumero.Caption = auxiliar.Captionauxiliarsigno.Caption = "*"auxiliar.Caption = ""End Sub
Private Sub seis_Click()auxiliar.Caption = auxiliar.Caption + "6"End Sub
Private Sub siete_Click()auxiliar.Caption = auxiliar.Caption + "7"End Sub
Private Sub tres_Click()auxiliar.Caption = auxiliar.Caption + "3"End Sub
Private Sub uno_Click()auxiliar.Caption = auxiliar.Caption + "1"End Sub