在VB编程中，统计整数的和可以通过多种方法实现。以下是几种常见的方法：
方法一：使用Sum函数
Sum函数是VB中用于求和的内置函数，可以处理数组、集合或表达式。以下是一个使用Sum函数计算整数数组的和的示例：
```vb
Dim arr（） As Integer = {1, 2, 3, 4, 5}
Dim total As Integer = Sum（arr）
MsgBox（"数组中元素的总和为：" & total）
```
方法二：使用循环和取模运算
这种方法通过循环和取模运算来逐个累加整数的各个位。以下是一个示例：
```vb
Dim a As Long
Dim s As Long
Dim b As Long
a = Val（InputBox（"请输入一个整数："））
s = 0
Do While a > 0
b = a Mod 10
s = s + b
a = a \ 10
Loop
Print "各位数字之和为： " & s
```
方法三：使用数组存储各个数字并求和
这种方法首先将输入的整数拆分成各个位，存储在数组中，然后对数组中的元素求和。以下是一个示例：
```vb
Dim n As String
Dim i As Integer
Dim result As Integer
n = InputBox（"输入一个整数："）
ReDim a（Len（n））
For i = 1 To Len（n）
a（i） = Mid（n, i, 1）
Next i
result = 0
For i = 1 To UBound（a）
result = result + Val（a（i））
Next i
Label1.Caption = "各位数字之和为： " & result
```
方法四：使用递归函数求和
这种方法使用递归函数来计算从1到指定数字之间所有整数的和。以下是一个示例：
```vb
Public Function f（ByVal n As Integer） As Integer
Dim i As Integer
Dim sum As Integer
sum = 0
For i = 1 To n
sum = sum + i
Next i
f = sum
End Function
Private Sub Command1_Click（）
Dim n As Integer
Dim i As Integer
Dim sum As Double
n = InputBox（"请输入一个数字N："）
sum = 0
For i = 1 To n
sum = sum + f（i）
Next i
Print "从1到" & n & "的整数之和为： " & sum
End Sub
```
方法五：使用循环累加
这种方法通过循环累加从1到指定数字之间的所有整数。以下是一个示例：
```vb
Private Sub Command1_Click（）
Dim n As Integer
Dim i As Integer
Dim sum As Integer
n = InputBox（"请输入一个数字N："）
sum = 0
For i = 1 To n
sum = sum + i
Next i
MsgBox "从1到" & n & "的整数之和为： " & sum
End Sub
```
这些方法都可以用来统计整数的和，具体选择哪种方法取决于你的需求和编程习惯。Sum函数是最简单直接的方法，而使用循环和取模运算则可以在不使用额外数组的情况下计算各位数字之和。递归函数和方法可以用于更复杂的求和问题。