单选题设有如下Command1的单击事件过程及fun过程：
Private Sub Command1_Click()
Dim x As Integer
x=Val(InputBox("请输入一个整数"))
fun(x)
End Sub
Private Sub fun(x As Integer)
If x Mod 2=0 Then fun(x/2)
Print x;
End Sub
执行上述程序，输入6，结果是

A、 3 6
B、 6 3
C、 6
D、程序死循环

【正确答案】 A

【答案解析】[解析] 本题中的fun过程是一个递归调用，如果参数x为偶数则进入递归；本题中的实参6传入fun过程之后，因其是偶数，所以执行fun(6/2)，也就是先输出3，然后返回到fun中输出6。