Programación Textx
Dim a (1 a 50) es un número entero
Subcomando privado 1_Click()
x = Val(Text1)
Si x lt= 0 entonces y = -x else y = Sqr(x)
Etiqueta 2. title = y
Carpintero final
Subform_Load privado()
i. Caption = "Calcular función por partes"
Texto1 = " "
Etiqueta1. Caption = "Ingrese x "
Etiqueta 2. título = " "
Comando 1. Caption = "Calcular y"
Conector final