在Visual FoxPro （VFP） 中，有多种方法可以编写一个程序来计算1到100的和。以下是几种常见的方法：
方法1：使用DO WHILE循环
```vfp
CLEAR
s = 0
i = 1
DO WHILE i <= 100
s = s + i
i = i + 1
ENDDO
？ s
```
方法2：使用FOR循环
```vfp
CLEAR
s = 0
FOR i = 1 TO 100
s = s + i
ENDFOR
？ s
```
方法3：使用SET TALK OFF和CLEAR
```vfp
SET TALK OFF
CLEAR
s = 0
FOR K = 1 TO 100
s = s + K
ENDFOR
？ s
SET TALK ON
```
方法4：使用阶乘的累加
```vfp
CLEAR
s = 0
FOR i = 1 TO 100
s = s + i
ENDFOR
？ s
```
方法5：使用嵌套循环
```vfp
SET TALK OFF
FOR x = 0 TO 100
FOR Y = 0 TO 100
FOR Z = 0 TO 100
IF 3 * x + 5 * Y + Z / 3 = 100 AND x + Y + Z = 100
" 公鸡、母鸡、小鸡的数量分别是： " ,x,Y,Z
ENDIF
ENDFOR
ENDFOR
ENDFOR
SET TALK ON
```
这些方法都可以有效地计算1到100的和。你可以根据自己的需求和编程习惯选择合适的方法。