在Visual FoxPro （VFP） 中编写分段函数，可以使用 `CASE` 语句来实现。以下是一个示例程序，展示了如何根据输入的数值 `x` 计算分段函数的值：
```foxpro
* 定义分段函数
FUNCTION f
CASE
WHEN x > 0 THEN
RETURN x * x
WHEN x = 0 THEN
RETURN 0
ELSE
RETURN -x * x
ENDCASE
ENDFUNCTION
* 主程序
SET TALK OFF
CLEAR
* 从键盘输入数值 x
INPUT "请输入一个数值 x: " TO x
* 调用分段函数并输出结果
？ "分段函数的值为： " + f（x）
SET TALK ON
```
在这个示例中，我们定义了一个名为 `f` 的函数，该函数根据输入的数值 `x` 计算分段函数的值。然后，在主程序中，我们提示用户输入一个数值，并调用 `f` 函数来计算结果，最后将结果显示在屏幕上。
你可以根据具体需求修改这个示例程序，以适应不同的分段函数逻辑。