Question

设有如下Command1的单击事件过程及fun过程: Private Sub Command1_C

设有如下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 a 3 6 b 6 3 c 6 d 程序死循环 正答是a 求解释一下6是怎么输出的 麻烦详细点 执行上述程序 输入6 则输出结果是()

Answer 1

题目中fun过程是一个递归过程，它的结束条件是参数值为奇数。第一次调用，参数值为6，是偶数所再次调用fun过程，这次参数为6/2＝3，是奇数，不再调用自身，接着执行下一句输出参数值即3，然后返回第一次调用过程中执行下一句输出第一次调用参数值，即6。因此程序会输出3　6。

Answer 2

卧槽。我看到这个想到现在才学简单的就好心酸。。

追问

你不回答我也很心酸