设有如下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 Nod 2 =0 Then fun(x / 2) Print x ; End Sub
单选题
设有如下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 Nod 2 =0 Then fun(x / 2) Print x ; End Sub