在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的阶乘
```
方法二：使用递归
```vb
Private Function 阶乘（ByVal n As Integer） As Long
If n = 0 Or n = 1 Then
阶乘 = 1
Else
阶乘 = n * 阶乘（n - 1）
End If
End Function
```
在需要求阶乘的地方调用该函数，例如：
```vb
Dim y As Long
y = 阶乘（10） ' 求10的阶乘
```
方法三：使用For循环累加
```vb
Private Sub Command1_Click（）
Dim n As Integer
Dim jc As Long
n = Val（InputBox（"请你输入一个正整数!"））
If n > 0 Then
jc = 1
For i = 1 To n
jc = jc * i
Next i
MsgBox n & "的阶乘为：" & jc
End If
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 TimeStep（Numer As Integer） As Long
TimeStep = 1
For i = 1 To Numer
TimeStep = TimeStep * i
Next
End Function
```
在代码中调用该函数，例如：
```vb
Dim result As Long
result = TimeStep（10） ' 求10的阶乘
```
以上是在VB程序中计算阶乘的几种方法，可以根据具体需求和编程习惯选择合适的方法。