设有如下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.程序死循环
热度🔥538
参考答案：A
解析：
【解析】题目中fun过程是一个递归过程，它的结束条件是参数值为奇数。第一次调用，参数值为6，是偶数所再次调用fun过程，这次参数为6/2＝3，是奇数，不再调用自身，接着执行下一句输出参数值即3，然后返回第一次调用过程中执行下一句输出第一次调用参数值，即6。因此程序会输出3 6。
【解析】题目中fun过程是一个递归过程，它的结束条件是参数值为奇数。第一次调用，参数值为6，是偶数所再次调用fun过程，这次参数为6/2＝3，是奇数，不再调用自身，接着执行下一句输出参数值即3，然后返回第一次调用过程中执行下一句输出第一次调用参数值，即6。因此程序会输出3 6。
复制题目向AI提问
扫码免费计算机二级刷题
2025年计算机等级考试题库
推荐
与其它内核相比，关于ARM内核的主要特点，以下说法错误的是（ ）。
设一棵树的度为4，其中度为4，3，2，1的结点个数分别为2，3，3，0。则该棵树中的叶子结点数为（ ）。
书娟是海明公司的前台文秘，她的主要工作是管理各种档案，为总经理起草各种文件。新年将至，公司定于2013年2月5日下午2:00，在中关村海龙大厦办公大楼五层多功能厅举办一个联谊会，重要客人名录保存在名为"重要客户名录.docx"的Word文档中，公司联系电话为010－66668888。根据上述内容制作请柬，具体要求如下：1. 制作一份请柬，以"董事长：王海龙"名义发出邀请，请柬中需要包含标题、收件人名称、联谊会时间、联谊会地点和邀请人。2.对请柬进行适当的排版，具体要求：改变字体、加大字号，且标题部分（"请柬"）与正文部分（以"尊敬的XXX"开头）采用不相同的字体和字号；加大行间距和段间距；对必要的段落改变对齐方式，适当设置左右及首行缩进，以美观且符合中国人阅读习惯为准。3.在请柬的左下角位置插入一幅图片（图片自选），调整其大小及位置，不影响文字排列、不遮挡文字内容。4.进行页面设置，加大文档的上边距；为文档添加页眉，要求页眉内容包含本公司的联系电话。5. 运用邮件合并功能制作内容相同、收件人不同（收件人为"重要客户名录.docx"中的每个人，采用导入方式）的多份请柬，要求先将合并主文档以"请柬1.docx"为文件名进行保存，再进行效果预览后生成可以单独编辑的单个文档"请柬2.docx"。
