在VB（Visual Basic）中，可以通过多种方法来编程计算一个正整数n的阶乘。以下是几种常见的方法：
使用循环计算阶乘
```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
```
使用递归计算阶乘
```vb
Function Factorial（ByVal n As Integer） As Long
If n > 1 Then
Return n * Factorial（n - 1）
Else
Return 1
End If
End Function
Private Sub Command1_Click（）
Text2.Text = Factorial（Val（Text1.Text））
End Sub
```
使用Do While循环计算阶乘
```vb
Private Sub Command1_Click（）
Dim s As Long, n As Integer, 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
```
使用For循环和字符串模拟高精度计算（适用于大数阶乘）：
```vb
Private Sub Command1_Click（）
Dim s As String, n As Integer, i As Integer
n = CInt（InputBox（"请输入要计算阶乘的数N:"））
If n < 0 Then
MsgBox "N不能小于0!"
Exit Sub
End If
s = "1"
For i = 2 To n
Dim carry As Integer = 0
Dim prod As String = ""
For j As Integer = Len（s） - 1 To 0 Step -1
Dim digit As Integer = CInt（Mid（s, j, 1））
Dim temp As Integer = digit * i + carry
carry = temp \ 10
prod = CStr（temp Mod 10） & prod
Next
s = prod
Next
MsgBox n & "的阶乘为： " & s
End Sub
```
这些方法中，循环方法是最直接和常用的，而递归方法则更为简洁。对于非常大的数，可能需要使用字符串模拟高精度计算来避免整数溢出的问题。根据具体需求和场景，可以选择合适的方法来实现阶乘计算。