Calculadora (por Bruno y Ezequiel)

Private Sub Command5_Click()
End Sub
Private Sub Command4_Click()
End Sub
Private Sub borrar_Click()numeros.Caption = ""End Sub
Private Sub Command1_Click()
End Sub
Private Sub dividir_Click()aux1.Caption = numeros.Captionaux2.Caption = "/"numeros.Caption = ""End Sub
Private Sub igual_Click()If aux2.Caption = "+" Thennumeros.Caption = Val(aux1.Caption) + Val(numeros.Caption)aux1.Caption = ""aux2.Caption = ""End IfIf aux2.Caption = "-" Thennumeros.Caption = Val(aux1.Caption) - Val(numeros.Caption)aux1.Caption = ""aux2.Caption = ""End IfIf aux2.Caption = "*" Thennumeros.Caption = Val(aux1.Caption) * Val(numeros.Caption)aux1.Caption = ""aux2.Caption = ""End IfIf aux2.Caption = "/" Thennumeros.Caption = Val(aux1.Caption) / Val(numeros.Caption)aux1.Caption = ""aux2.Caption = ""End IfEnd Sub
Private Sub mas_Click()aux1.Caption = numeros.Captionaux2.Caption = "+"numeros.Caption = ""End Sub
Private Sub menos_Click()aux1.Caption = numeros.Captionaux2.Caption = "-"numeros.Caption = ""End Sub
Private Sub multiplicar_Click()aux1.Caption = numeros.Captionaux2.Caption = "*"numeros.Caption = ""End Sub
Private Sub n0_Click()numeros.Caption = numeros.Caption + "0"End Sub
Private Sub n1_Click()numeros.Caption = numeros.Caption + "1"End Sub
Private Sub n2_Click()numeros.Caption = numeros.Caption + "2"End Sub
Private Sub n3_Click()numeros.Caption = numeros.Caption + "3"End Sub
Private Sub n4_Click()numeros.Caption = numeros.Caption + "4"End Sub
Private Sub n5_Click()numeros.Caption = numeros.Caption + "5"End Sub
Private Sub n6_Click()numeros.Caption = numeros.Caption + "6"End Sub
Private Sub n7_Click()numeros.Caption = numeros.Caption + "7"End Sub
Private Sub n8_Click()numeros.Caption = numeros.Caption + "8"End Sub
Private Sub n9_Click()numeros.Caption = numeros.Caption + "9"End Sub
Private Sub punto_Click()numeros.Caption = numeros.Caption + "."End Sub