在VB（Visual Basic）中，计算n的累加可以通过多种方法实现。以下是几种常见的方法：
方法一：使用For循环
```vb
Private Sub Command1_Click（）
Dim n As Integer
Dim sum As Double
sum = 0
n = InputBox（"请输入n的值"）
For i = 1 To n
sum = sum + jiecheng（i）
Next i
Print sum
End Sub
Public Function jiecheng（ByVal n As Integer） As Double
Dim jc As Double
jc = 1
For i = 1 To n
jc = jc * i
Next i
jiecheng = jc
End Function
```
方法二：使用Do...Loop循环
```vb
Private Sub Command1_Click（）
Dim n As Integer
Dim s As Double
n = CInt（InputBox（"N="））
s = 0
For i = 1 To n
s = s + i
Next i
MsgBox （n & "个数的总和=" & s）
End Sub
```
方法三：使用数组和循环
```vb
Private Sub Command1_Click（）
Dim arr（） As Variant
arr = Array（1, 2, 3, 4, 5, 6, 7, 8, 9, 10）
Call GetSumString（arr, UBound（arr）, 0）
End Sub
Private Sub GetSumString（ _
_aryInput As Variant, _
_ByVal Num As Integer, _
_ByVal Sum As Long, _
_Optional ByVal iCount As Integer = 1, _
_Optional ByVal iPot As Integer = 0, _
_Optional ByVal s As String, _
_Optional ByVal Suming As Long）
Dim i As Integer
If iCount > Num Then
If Suming = Sum Then
Debug.Print Mid（s, 2）
End If
Exit Sub
End If
For i = LBound（aryInput） + iPot To UBound（aryInput）
DoEvents
GetSumString aryInput, Num, Sum, iCount + 1, i + 1, s & "+" & aryInput（i）, Suming + aryInput（i）
Next i
End Sub
```
方法四：使用递归函数计算阶乘并累加
```vb
Private Sub Command1_Click（）
Dim n As Integer
Dim sum As Double
sum = 0
n = CInt（InputBox（"请输入n的值"））
For i = 1 To n
sum = sum + jiecheng（i）
Next i
Print sum
End Sub
Public Function jiecheng（ByVal n As Integer） As Double
If n = 0 Then
jiecheng = 1
Else
jiecheng = n * jiecheng（n - 1）
End If
End Function
```
方法五：使用循环计算奇数和或偶数和
```vb
Private Sub Command1_Click（）
Dim n As Integer
Dim i As Integer
Dim s As Double
n = CInt（InputBox（"N="））
s = 0
For i = 1 To n
If i Mod 2 = 0 Then
s = s + i
End If
Next i
MsgBox （n & "个偶数的总和=" & s）
End Sub
```
这些方法都可以实现n的累加，具体选择哪种方法取决于你的需求和编程习惯。建议选择最适合你的场景的方法进行实现。