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