Codigos por juancho

Private Sub C_Click()
numero.Caption = ""
End Sub

Private Sub ç_Click()
numero.Caption = numero.Caption + "9"
End Sub

Private Sub Command12_Click()

End Sub

Private Sub Command10_Click()

End Sub

Private Sub Command13_Click()

End Sub

Private Sub dividir_Click()
aux1.Caption = numero.Caption
aux2.Caption = "/"
numero.Caption = ""
End Sub

Private Sub igual_Click()
If aux2.Caption = "+" Then
numero.Caption = Val(aux1.Caption) + Val(numero.Caption)
aux1.Caption = ""
aux2.Caption = ""
End If
If aux2.Caption = "-" Then
numero.Caption = Val(aux1.Caption) - Val(numero.Caption)
aux1.Caption = ""
aux2.Caption = ""
End If
If aux2.Caption = "*" Then
numero.Caption = Val(aux1.Caption) * Val(numero.Caption)
aux1.Caption = ""
aux2.Caption = ""
End If
If aux2.Caption = "/" Then
numero.Caption = Val(aux1.Caption) / Val(numero.Caption)
aux1.Caption = ""
aux2.Caption = ""
End If
End Sub

Private Sub menos_Click()
aux1.Caption = numero.Caption
aux2.Caption = "-"
numero.Caption = ""

End Sub

Private Sub n0_Click(Index As Integer)
numero.Caption = numero.Caption + "0"
End Sub

Private Sub n1_Click()
numero.Caption = numero.Caption + "1"
End Sub

Private Sub n2_Click()
numero.Caption = numero.Caption + "2"
End Sub

Private Sub n3_Click(Index As Integer)
numero.Caption = numero.Caption + "3"
End Sub

Private Sub n4_Click()
numero.Caption = numero.Caption + "4"
End Sub

Private Sub n5_Click()
numero.Caption = numero.Caption + "5"
End Sub

Private Sub n6_Click()
numero.Caption = numero.Caption + "6"
End Sub

Private Sub n7_Click()
numero.Caption = numero.Caption + "7"
End Sub

Private Sub n8_Click()
numero.Caption = numero.Caption + "8"
End Sub

Private Sub por_Click()
aux1.Caption = numero.Caption
aux2.Caption = "*"
numero.Caption = ""
End Sub

Private Sub punto_Click()
numero.Caption = numero.Caption + "."
End Sub

Private Sub sumar_Click()
aux1.Caption = numero.Caption
aux2.Caption = "+"
numero.Caption = ""
End Sub