Question

求教VB大神！！！

设有如下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，结果是______。
不懂为什么 答案是 （3 6）请详细赐教！！！

Answer 1

楼上说的太专业，这样给你说吧：输入6之后先运行fun(6)，因为x Mod 2=0 所以执行fun(6/2) ，因为是执行的fun(3),所以先输出的是3，之后从那个if语句之后接着执行，print x;所以输出的是(3 6)

Answer 2

输入6
调用fun(6)
If 6 Mod 2=0 Then fun(6/2) 'fun(6/2)=fun(3) 打印出 3
后面
Print x; '打印出 6

Answer 3

典型的递归调用，对于初学者来说，最好的理解方式就是用函数实际代码去替换展开．上例中：
输入6，执行fun(6)，展开为：
x=6;
if x mod 2=0 Then
x1=3;'fun(3)展开
If x1 mod 2 Then fun(x1/2);‘因为x1 mod 2为false，因此不再递归下去
Print x1;
end if
Print x;