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

首页 计算机等级考试 关于

设有如下Command1的单击事件过程及fun过程：Private Sub Command1_Click() Dim x As Integer x＝Val(InputBox("请输入一个整数")) fun(x)End SubPrivate Sub fun(x As Integer) If x Mod 2＝0 Then fun(x / 2) Print x；End Sub执行上述程序，输入6，结果是( )。

A.3 6
B.6 3
C.6
D.程序死循环

添加回答回答:0:浏览6

参考答案：A

解析：

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

相关内容下列叙述中正确的是在 Access 中，与 like 一起使用时，代表任一数字的是下列选项中，哪一个不是操作系统所具有的功能？为了清除列表框中指定的项目，应使用的方法是( )。有以下程序 #include main() { char b,c; int i; b= 'a'; c = 'A'; for (i=0; i<6; i++) { if (i%2) putchar(i+b); else putchar(i+c); } printf("\n"); } 程序运行后的输出结果是

标签

二级VB程序设计

fun

过程

参数

调用