apunte de la clase del 11/10

Programamos:
Private Sub divididouno_Click()
If visor.Caption = 0 Then
visor.Caption = "ERROR"
Else
visor.Caption = 1 / Val(visor.Caption)End IfEnd SubPrivate Sub igual_Click()punto.Enabled = TrueIf signos.Caption = "+" Thenvisor.Caption = Val(visor.Caption) + Val(auxcanal.Caption)signos.Caption = ""auxcanal.Caption = ""ElseIf signos.Caption = "-" Thenvisor.Caption = Val(auxcanal.Caption) - Val(visor.Caption)signos.Caption = ""auxcanal.Caption = ""ElseIf signos.Caption = "*" Thenvisor.Caption = Val(visor.Caption) * Val(auxcanal.Caption)signos.Caption = ""auxcanal.Caption = ""ElseIf signos.Caption = "/" ThenIf visor.Caption = "0" Thenvisor.Caption = "ERROR"signos.Caption = ""auxcanal.Caption = ""Elsevisor.Caption = Val(auxcanal.Caption) / Val(visor.Caption)signos.Caption = ""auxcanal.Caption = ""End IfEnd IfEnd IfEnd IfEnd IfIf signos.Caption = "%" Thenvisor.Caption = Val(visor.Caption) / 100 * Val(auxcanal)End IfPrivate Sub masmenos_Click()visor.Caption = Val(-(visor.Caption))End SubPrivate Sub porcentaje_Click()signos.Caption = "%"auxcanal.Caption = visor.Captionvisor.Caption = ""End Sub