vb 怎么求一个数的阶乘啊~~~各位哥哥姐姐帮帮忙 小弟急用

求N的阶乘
Private Sub command1_Click()
Dim I As Integer, f As double, n As Integer
n = InputBox("输入一个自然数：", "输入提示", "")
f = 1
For I = 1 To n Step 1
f = f * I
Next I
Text1.Text = f
End Sub

Private Sub Command2_Click()
End
End Sub

或者
Private Sub Command1_Click()
n = InputBox("输入自然数", "输入")
JieCheng n
If n > 1 Then
For j = n To 2 Step -1
Print j & "*";
Next j
End If
Print "1=";
Print JieCheng(n)
End Sub

Private Function JieCheng(ByVal i&) As Long
If i > 1 Then
JieCheng = i * JieCheng(i - 1)
Else
JieCheng = 1
End If
End Function