Function Factorial(n As Long) As Long
Dim nTemp As Long
If n = 0 Or n = 1 Then
nTemp = 1
Else
nTemp = n * Factorial(n - 1) '进行递归调用
End If
Factorial = nTemp
End Function

Private Sub Command1_Click()
n& = InputBox("请输入非负整数", "公式计算") '输入一个数，求它的阶乘
Label1.Caption = "n=" & n & " n!=" & Factorial(n)
End Sub

在弹出得inputbox中点取消就出错
为什么？？？？？？？

按了取消后，inputbox返回的是一个空字符，而你的n定义的不是字符类型，所以就会出项
类型不匹配的错误，解决办法是在inputbox前加如Val()函数
n& = Val(InputBox("请输入非负整数","公式计算"))
然后判断是否要调用Factorial函数
If n = 0 then
exit sub
endif

谢谢了

Function Factorial(n As Long) As Long
Dim nTemp As Long
If n = 0 Or n = 1 Then
nTemp = 1
Else
nTemp = n * Factorial(n - 1) '进行递归调用
End If
Factorial = nTemp
End Function

Private Sub Command1_Click()
n& = InputBox("请输入非负整数", "公式计算") '输入一个数，求它的阶乘
if n& <> "" then
if isnumeric(n&) then
if val(n&) >=0 then
Label1.Caption = "n=" & n & " n!=" & Factorial(n)
else
msgbox("错误！")
end if
else
msgbox("错误！")
end if
else
msgbox("错误！")
end if
End Sub

最简单的就是出错时忽略
on error resume next