Cómo escribir una función dividida usando VB

Dim x, y As Long 'No sé si x, y se pueden usar como tipos de punto flotante. Veamos primero el número entero

x. = InputBox("Ingrese un valor de x en el rango de -1000, +1000")

Si x <0 entonces

y = x ^ 2 + 1

ElseIf x >= 0 entonces

y = x ^ 2 - 1

End If

La diferencia entre rama simple y rama doble es " De lo contrario, si x >= 0, entonces ". Si lo cambias a else, será una sola rama

Presta atención a los rangos de valores de x e y, porque si x es demasiado grande, el valor de y puede estar fuera de rango

Espero que te resulte útil

Imprimir "y=" & y

End Sub