设有如下Commandl的单击事件过程及fun过程： Private Sub Commandl：Click()Private Sub．fun(x As Integer) Dim x As IntegerIfx Mod 2=0 Then fun(x／2)

admin2015-12-09 29

问题设有如下Commandl的单击事件过程及fun过程：
Private Sub Commandl：Click()Private Sub．fun(x As Integer)
Dim x As IntegerIfx Mod 2=0 Then fun(x／2)
x=Val(InputBox(“请输入一个整数”))Print x；
fun(x) End Sub
End Sub
执行上述程序，输入6，结果是

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

答案A

解析本题中的fum过程是一个递归调用，如果参数x为偶数则进入递归：本题中的实参6传入fun过程之后，因其是偶数，所以执行fun(6／2)，也就是先输出3，然后返回到fun中输出6。

转载请注明原文地址:https://kaotiyun.com/show/ZyLp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类