在VB编程中，计算1到10的阶乘可以通过多种方法实现。以下是几种常见的方法：
方法一：使用循环
```vb
Sub SumProduct（）
Dim sum As Double
Dim i As Integer
Dim DouProduct As Double
sum = 0
For i = 1 To 10
DouProduct = 1
For j = 1 To i
DouProduct = DouProduct * j
Next j
sum = sum + DouProduct
Next i
MsgBox "1! + 2! + 3! + ... + 10! = " & sum
End Sub
```
方法二：使用递归
```vb
Function Factorial（n As Long） As Long
If n = 1 Then
Factorial = 1
Else
Factorial = n * Factorial（n - 1）
End If
End Function
Private Sub Command1_Click（）
Dim n As Long
For n = 1 To 10
Print CStr（n） & "的阶乘是： " & Factorial（n）
Next n
End Sub
```
方法三：使用求和公式
```vb
Private Sub Command1_Click（）
Dim s As Long
s = 1
For i = 1 To 10
s = s * i
Next i
MsgBox "1! + 2! + 3! + ... + 10! = " & s
End Sub
```
方法四：使用数组和循环
```vb
Private Sub Command1_Click（）
Dim factorials（） As Long
ReDim factorials（1 To 10）
For i = 1 To 10
factorials（i） = Factorial（i）
Next i
Dim sum As Long
sum = 0
For i = 1 To 10
sum = sum + factorials（i）
Next i
MsgBox "1! + 2! + 3! + ... + 10! = " & sum
End Sub
```
方法五：使用递归求和
```vb
Function SumFactorials（n As Integer） As Long
If n = 1 Then
SumFactorials = 1
Else
SumFactorials = n * SumFactorials（n - 1）
End If
End Function
Private Sub Command1_Click（）
Dim sum As Long
sum = SumFactorials（10）
MsgBox "1! + 2! + 3! + ... + 10! = " & sum
End Sub
```
以上是几种在VB中计算1到10的阶乘的方法。你可以根据自己的需求和编程习惯选择合适的方法。