试试如下 这段 子程序：
Sub 计算阶乘()
阶乘 = 1
i = InputBox("写入一个正整数")
For x = 1 To i
阶乘 = 阶乘 * x
Next x
MsgBox i & "!=" & 阶乘
End Sub
输出结果：
