在Visual FoxPro （VF） 中，你可以使用多种方法来编程计算阶乘。以下是一个简单的示例，展示了如何使用循环来计算阶乘：
```foxpro
LOCAL x, y, n, i
x = 0 ' 初始化x为0，用于存储阶乘结果
y = 1 ' 初始化y为1，用于存储当前阶乘的乘数
INPUT "请输入一个正整数n: " TO n ' 输入一个正整数n
FOR i = 1 TO n ' 从1到n循环
y = y * i ' 计算当前阶乘
x = x + y ' 将当前阶乘加到x上
ENDFOR
？ "1!+2!+3!+...+n! 的结果是： " + STR（x） ' 输出结果
```
如果你想要计算多个数的阶乘之和，你可以创建一个函数来计算单个数的阶乘，然后在循环中调用这个函数。例如：
```foxpro
LOCAL i, n, factorial, sum
n = 10 ' 假设我们要计算1到n的阶乘之和
sum = 0 ' 初始化阶乘之和为0
FOR i = 1 TO n ' 从1到n循环
factorial = 1 ' 初始化阶乘为1
FOR j = 1 TO i ' 计算i的阶乘
factorial = factorial * j
NEXT
sum = sum + factorial ' 将阶乘加到总和中
ENDFOR
？ "1到" + STR（n） + "的阶乘之和为： " + STR（sum） ' 输出结果
```
另外，如果你想要使用更复杂的方法，比如递归或者过程文件，你可以参考以下示例：
使用递归函数计算阶乘：
```foxpro
FUNCTION Factorial
LOCAL n, result
IF n = 0 OR n = 1 THEN
RETURN 1
ELSE
RETURN n * Factorial（n - 1）
ENDIF
ENDFUNCTION
LOCAL i, n, result
n = 10 ' 假设我们要计算1到n的阶乘之和
result = 0
FOR i = 1 TO n
result = result + Factorial（i）
ENDFOR
？ "1到" + STR（n） + "的阶乘之和为： " + STR（result） ' 输出结果
```
使用过程文件计算阶乘：
首先，创建一个过程文件（例如 `CalculateFactorial.prg`）：
```foxpro
PARAMETERS n
LOCAL result
result = 1
FOR i = 1 TO n
result = result * i
ENDFOR
RETURN result
```
然后，在主程序中调用这个过程文件：
```foxpro
LOCAL i, n, factorial
n = 10 ' 假设我们要计算1到n的阶乘之和
factorial = 0
FOR i = 1 TO n
factorial = CalculateFactorial（i）
factorial = factorial + factorial
ENDFOR
？ "1到" + STR（n） + "的阶乘之和为： " + STR（factorial） ' 输出结果
```
这些方法可以帮助你在Visual FoxPro中计算阶乘。你可以根据自己的需求选择最适合的方法。