Lo que hicimos en esta clase fue:
Private Sub alcuadrado_Click()visor.Caption = visor.Caption * visor.Caption
End Sub

Private Sub Command1_Click()visor.Caption = Sqr((Val(visor.Caption)))

End Sub

Private Sub igual_Click()punto.Enabled = True
If 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 If



End Sub

Private Sub potencias_Click()visor.Caption = visor.Caption * visor.Caption
End Sub

Private Sub raizcuadrada_Click()
If visor.Caption < 0 Thenvisor.Caption = "ERROR"Elsevisor.Caption = Sqr((Val(visor.Caption)))End If
End Sub