在Visual FoxPro （VFP） 中，可以使用多种方法编写求阶乘的程序。以下是几种常见的方法：
方法一：使用循环
```vfp
* 清除变量
CLEAR
* 输入一个数
INPUT "请输入一个小于20的数：" TO n
* 计算阶乘并输出结果
s = 1
FOR i = 1 TO n
s = s * i
ENDFOR
？ "阶乘是", s
```
方法二：使用递归函数
```vfp
* 定义阶乘函数
FUNCTION Factorial（n）
IF n = 0
RETURN 1
ELSE
RETURN n * Factorial（n - 1）
ENDIF
ENDFunc
* 主程序
CLEAR
INPUT "请输入一个数：" TO n
t = Factorial（n）
？ "阶乘是", t
```
方法三：使用外部过程文件
创建一个名为 `JCH.PRG` 的过程文件，内容如下：
JCH.PRG
```vfp
* 主程序
jch = 0
jcs = 0
FOR l = 1 TO 10
jc WITH l, jcs
jch = jch + jcs
ENDFOR
？ "10 的阶乘为：", jcs, "10 以内各自然数的阶乘和为：", jch
* 子程序
PROCEDURE jc
PARAMETERS n, jcs
jcs = 1
FOR m = 1 TO n
jcs = jcs * m
ENDFOR
RETURN jcs
ENDPROC
```
方法四：使用数组和累加
```vfp
* 清除变量
CLEAR
* 输入一个数
INPUT "请输入一个数：" TO n
* 计算阶乘并输出结果
s = 1
FOR i = 1 TO n
s = s * i
ENDFOR
？ "阶乘是", s
```
这些方法都可以用来计算阶乘，选择哪种方法取决于你的具体需求和编程习惯。递归方法在数学上更为简洁，但可能会导致栈溢出，特别是对于较大的数值。循环方法则更为稳定，适用于各种大小的输入。