问题
单项选择题
在窗体上画一个名称为Command1命令按钮，然后编写如下事件过程：Private Function fun1(n As Integer)As Integer Dim k As Integer If n = 1 Thenk = 1 Elsek = 1 + fun1(n - 1)* 2 End If fun1 = k End Function Private Sub Command1_Click () Dim m As Integer, x As Integer x = 4 m = fun1 (x) Print m End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是
A．4
B．6
C．9
D．15
答案
参考答案：D
解析：
[分析]： fun1是一个递归过程，fun1函数过程共调用了5次，在Command1的单击事件中调用了fun1(4)，其他3次调用的分别是fun1(3)、 fun1(2)和fun1(1)，由fun1函数过程自身调用。在fun1的调用过程中，相当于k=1、k=1+1×2 =3、k=1+3×2=7、k=1+2×7=15。