设有如下 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， 结果是
题目中 fun 过程是一个递归过程， 它的结束条件是参数值为奇数。 第一次调用，参数值为 6， 是偶数所再次调用 fun 过程， 这次参数为 6／ 2=3， 是奇数， 不再调用自身， 接着执行下一句输出参数值即 3， 然后返回第一次调用过程中执行下一句输出第一次调用参数值， 即 6。 因此程序会输出 3 6。