窗体上添加2个text,1个command
Private Sub Command1_Click()
x = Text1.Text
If x >= 0 Then
y = 1 + x ^ 2
Else
y = 1 - 2 * x
End If
Text2.Text = y
End Sub