Question

vb编译错误必选参数。题目是：用递归的方法编写n的阶乘

我的程序是这样的：

Function jiecheng(ByVal n As Double) As Double
n = Val(InputBox())
If n = 1 Then
jiecheng = 1
Else
jiecheng = n * jiecheng(n - 1)
End If
End Function
Private Sub Command1_Click()
Print jiecheng(n)
End Sub
运行之后就出现编程错误：必选参数
请问是什么原因呢？要怎么改才可以运行？

Answer 1

首先，InputBox函数至少要有个Prompt的字符串，就是弹出来对话框告诉你比如”输入XXX“的信息的那行字，这个是不能遗漏的，
其次，就算完成上面这一步，这个程序还是不行。不能把Input之事放在Function当中，这样就相当于每次迭代过程中都要给n重新赋值——我不知这样说是不是看得懂，总之你可以自己试一下，会产生死循环的。
解决方法是，把Input之事放到Command_Click过程开头，那样就可以了。
以上。