VB中递归调用程序

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时，窗体如何显示？
解析：fun过程是一个递归过程，它的结束条件是参数值为奇数。
第一次调用，参数值为6，是偶数所再次调用fun过程，这次参数为6/2＝3，是奇数，不再调用自身，接着执行下一句输出参数值即3，然后返回第一次调用过程中执行下一句输出第一次调用参数值，即6。
因此程序会输出3　6。