vb阶乘代码。。

Private Sub Command1_Click()
Dim n As Integer, m As Double
m = 1
n = Val(Text1.Text)
If n > 170 Then
MsgBox "无法计算，请输入小于等于170的数。"
Text1.SetFocus
Exit Sub
End If