在VB编程中，计算阶乘的方法有多种，以下是几种常见的实现方式：
方法一：使用循环
```vb
Private Function 求阶乘（Byval n As Integer） As Long
Dim i As Integer
Dim Fac As Long
Fac = 1
For i = 1 To n
Fac = Fac * i
Next i
求阶乘 = Fac
End Function
```
在需要求阶乘的地方，调用该函数：
```vb
Dim y As Long
y = 求阶乘（10） ' 求阶乘（10）将用10调用上面的自定义函数，返回10的阶乘
```
方法二：使用递归
```vb
Module Module1
Sub Main（）
Dim n As Integer
Console.Write（"请输入一个正整数n:"）
n = Convert.ToInt32（Console.ReadLine（））
Dim factorial As Integer = 1
For i As Integer = 1 To n
factorial *= i
Next
Console.WriteLine（n & "的阶乘是：" & factorial）
Console.ReadLine（）
End Sub
End Module
```
方法三：使用For语句
```vb
Private Sub Command1_Click（）
Dim n As Integer
Dim s As Long
n = Val（Text1.Text）
s = 1
For i = 1 To n
s = s * i
Next
Label4.Caption = Str（s）
End Sub
```
方法四：使用Do While语句
```vb
Private Sub Command1_Click（）
Dim s As Long
Dim n As Integer
Dim i As Integer
n = Val（Text1.Text）
s = 1
i = 1
Do While i <= n
s = s * i
i = i + 1
Loop
Label4.Caption = Str（s）
End Sub
```
方法五：使用递归函数
```vb
Function Factorial（n As Integer） As Long
If n = 0 Or n = 1 Then
Factorial = 1
Else
Factorial = n * Factorial（n - 1）
End If
End Function
```
在需要求阶乘的地方，调用该函数：
```vb
Dim result As Long
result = Factorial（10） ' 求阶乘（10）将用10调用上面的自定义函数，返回10的阶乘
```
这些方法都可以用来计算阶乘，你可以根据自己的需求和编程习惯选择合适的方法。