在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
Private Sub Form_Click（）
Dim i As Long, C As Long, n As Long
n = Val（text1.text）
C = 1
For i = 1 To n
C = C * i
Next
Print C
End Sub
```
使用递归
```vb
Public Function Factorial（ByVal bNum As Integer） As Long
If bNum <= 0 Then
Exit Function
End If
Factorial = 1
For i = 1 To bNum
Factorial = Factorial * i
Next
End Function
```
调用该函数：
```vb
Dim result As Long
result = Factorial（10） ' 计算10的阶乘
```
使用循环（带输入验证）
```vb
Private Sub Command1_Click（）
Dim n As Integer
Dim jc As Integer
n = Val（InputBox（"请你输入一个正整数!"））
If n > 0 Then
jc = 1
For i = 1 To n
jc = jc * i
Next
MsgBox n & "的阶乘为：" & jc
Else
MsgBox "请输入一个正整数!"
End If
End Sub
```
使用递归（带输入验证）
```vb
Private Sub Command1_Click（）
Dim n As Integer
Dim result As Integer
n = Val（InputBox（"请你输入一个正整数!"））
If n > 0 Then
result = Factorial（n）
MsgBox n & "的阶乘为：" & result
Else
MsgBox "请输入一个正整数!"
End If
End Sub
```
这些方法都可以用来计算一个正整数的阶乘。你可以根据自己的需求和喜好选择合适的方法。注意，当输入的数值较大时，阶乘的结果可能会超出 `Long` 类型的存储范围，导致溢出。在这种情况下，可以考虑使用其他数据类型（如 `BigInteger`）或者使用高精度算法来处理大数阶乘。