设有如下Command1的单击事件过程及fun过程: Private Sub Command1_Click() Private Sub fun(x As Integer) Dim x As Integer

admin2017-04-25  30

问题 设有如下Command1的单击事件过程及fun过程:
    Private Sub Command1_Click()      Private Sub fun(x As Integer)
    Dim x As Integer                     If x Mod 2=0 Then fim(x/2)
    x=Val(InputBox("请输入一个整数"))      Print x;
    fun(x)                               End Sub
    End Sub
    执行上述程序,输入6,结果是

选项 A、3 6
B、6 3
C、6
D、程序死循环

答案A

解析 本题中的fun过程是一个递归调用,如果参数x为偶数则进入递归;本题中的实参6传入fun过程之后,因其是偶数,所以执行fun(6/2),也就是先输出3,然后返回到fun中输出6。
转载请注明原文地址:https://jikaoti.com/ti/r6y0FFFM
0

随机试题
最新回复(0)