在Visual FoxPro （VFP） 中，你可以使用以下代码来计算1到100的和：
```vfp
clear
s = 0
for i = 1 to 100
s = s + i
endfor
？ "1+2+3+...+100的和是： " + alltrim（str（s））
```
这段代码首先声明了一个变量 `s` 并将其初始化为0。然后，使用 `for` 循环从1遍历到100，每次循环将 `i` 的值加到 `s` 上。最后，使用 `？` 语句输出结果。
如果你使用的是其他编程语言，例如Visual Basic，你可以使用以下代码：
```vb
Module Module1
Sub Main（）
Dim sum As Integer = 0
For i As Integer = 1 To 100
sum += i
Next
Console.WriteLine（"1到100的和是： " & sum）
Console.ReadLine（）
End Sub
End Module
```
这段代码声明了一个整数变量 `sum` 并将其初始化为0。然后，使用 `For` 循环从1遍历到100，每次循环将 `i` 的值加到 `sum` 上。最后，使用 `Console.WriteLine` 输出结果。