Programación VB: Se conoce la siguiente función de división. Requiere la entrada de x y calcula el valor de y. Cuando x es mayor o igual a 0, el valor de y=1 x es igual a.
Agregue 2 textos y 1 comando al formulario
Private Sub Command1_Click()
x = Text1.Text
If x gt = 0 Then
y = 1 x ^ 2
Else
y = 1 - 2 * x
Finalizar si
Texto2. Texto = y
Fin del sub