[单项选择题] 在窗体上画一个名称为Command1命令按钮，然后编写如下事件过程：Private Function fun1(n As Integer)As

[单项选择题] 在窗体上画一个名称为Command1命令按钮，然后编写如下事件过程：

Private Function fun1(n As Integer)As Integer

Dim k As Integer

If n = 1 Then

k = 1

Else

k = 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。