在Visual FoxPro （VFP） 中创建子程序，你可以遵循以下步骤：
定义子程序
使用 `FUNCTION` 或 `PROCEDURE` 关键字来定义子程序。
子程序可以包含任何有效的VFP语句，包括变量声明、条件语句、循环语句等。
保存子程序
将子程序代码保存到一个 `.prg` 文件中。例如，你可以创建一个名为 `MySubroutine.prg` 的文件来保存子程序。
调用子程序
在主程序或其他子程序中，使用 `SET PROCEDURE TO` 命令来激活子程序。例如：
```foxpro
SET PROCEDURE TO MySubroutine
```
然后，你可以像调用普通函数一样调用子程序。例如：
```foxpro
result = MySubroutine（parameter1, parameter2）
```
传递参数
如果子程序需要参数，可以在调用时传递它们。例如：
```foxpro
result = MySubroutine（param1, param2）
```
在子程序内部，可以使用 `PARAMETERS` 语句来声明参数，并在函数体内使用这些参数。
返回值
子程序可以通过 `RETURN` 语句返回一个值。例如：
```foxpro
FUNCTION MySubroutine
PARAMETERS param1, param2
local result
result = param1 + param2
RETURN result
ENDFUNCTION
```
过程与函数的区别
子程序：是独立的程序模块，可以包含多个语句和逻辑结构。
函数：通常用于执行特定任务并返回一个值。
注意事项
确保子程序文件（`.prg`）在正确的路径下，以便VFP能够找到并执行它。
如果子程序依赖于其他表单或类库，确保这些依赖项也可用。
下面是一个简单的VFP子程序示例，用于计算两个数的和：
```foxpro
* MySubroutine.prg
FUNCTION AddNumbers
PARAMETERS num1, num2
local sum
sum = num1 + num2
RETURN sum
ENDFUNCTION
```
在主程序中调用这个子程序的示例：
```foxpro
* MainProgram.prg
SET PROCEDURE TO AddNumbers
LOCAL result
result = AddNumbers（5, 3）
？ "The sum is: " + result
```
通过这种方式，你可以在VFP中创建和调用子程序，以实现代码的模块化和重用。