在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 i = 1 TO 100
s = s + i
ENDFOR
？ s
SET TALK ON
```
方法4：使用 `IF` 语句筛选偶数并求和
```vfp
CLEAR
nsum = 0
FOR i = 1 TO 100
IF MOD（i, 2） = 0
nsum = nsum + i
ENDIF
ENDFOR
？ '结果为：', nsum
```
方法5：使用 `DO CASE` 语句（虽然这种方法不太适合此问题，但可以作为一种编程练习）
```vfp
CLEAR
s = 0
FOR i = 1 TO 100
DO CASE
CASE i MOD 2 = 0
s = s + i
ENDCASE
ENDFOR
？ '结果为：', s
```
这些方法都可以实现计算1到100的和的功能。你可以根据自己的需求和编程习惯选择合适的方法。建议使用 `FOR` 循环，因为它更简洁且易于理解。