在Visual Basic（VB）中计算0到100的和有多种方法。以下是几种常见的方法：
方法1：使用循环
```vb
Dim sum As Integer
sum = 0
For i = 0 To 100
sum = sum + i
Next i
MsgBox sum
```
方法2：使用数学公式
```vb
Dim sum As Double
sum = （100 * （100 + 1）） / 2
MsgBox sum
```
方法3：使用数组和循环
```vb
Dim a（100） As Integer
Dim i As Integer
For i = 1 To 100
a（i） = i
Next i
Dim sum As Integer
sum = 0
For i = 1 To 100
sum = sum + a（i）
Next i
MsgBox sum
```
方法4：使用随机数
```vb
Private Sub Command1_Click（）
Dim sum As Integer
sum = 0
Dim i As Integer
For i = 1 To 100
sum = sum + Int（（100 * Rnd） + 1）
Next i
MsgBox sum
End Sub
```
方法5：使用递归
```vb
Private Function SumToN（ByVal n As Integer） As Integer
If n <= 1 Then
SumToN = n
Else
SumToN = n + SumToN（n - 1）
End If
End Function
Private Sub Command1_Click（）
Dim sum As Integer
sum = SumToN（100）
MsgBox sum
End Sub
```
方法6：使用Excel公式
如果你在使用Excel，可以使用以下公式计算0到100的和：
```excel
=SUM（ROW（INDIRECT（"1:100"）））
```
方法7：使用VBA宏
如果你熟悉VBA，可以编写一个宏来计算0到100的和：
```vba
Sub CalculateSum（）
Dim sum As Integer
sum = 0
For i = 1 To 100
sum = sum + i
Next i
MsgBox sum
End Sub
```
这些方法各有优缺点，选择哪种方法取决于你的具体需求和编程环境。希望这些示例能帮助你找到最适合你的解决方案。