你的程序我们看不到，你应该注意一下相关变量的数据类型吧，比如整型，双精度什么的。
我不知道你通过什么事件来触发这个这个函数
如 private sub form1_click()
n=val(text1.text)
text2.text=fac(n)
end sub()
Public Function fac(x As Integer) As long
if x=1 then fac=1 ：exit function
fac=fac（n-1）*n
end function（）
End Function
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024