2. 计算机
  3. 设有如下Command1按钮的单击事件过程及fun过程： Private Sub Command1_Cliek() Dim x As Integer x=Val(InputBox("请输入一个整数")) fun(x)

设有如下Command1按钮的单击事件过程及fun过程： Private Sub Command1_Cliek() Dim x As Integer x=Val(InputBox("请输入一个整数")) fun(x)

admin2015-08-13  65
问题 设有如下Command1按钮的单击事件过程及fun过程：
  Private Sub Command1_Cliek()
      Dim x As Integer
      x=Val(InputBox("请输入一个整数"))
      fun(x)
  End Sub
  Private 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、程序死循环
答案A
解析 题目中fun过程是一个递归过程，它的结束条件是参数值为奇数。第一次调用，参数值为6，是偶数所再次调用fun过程，这次参数为6／2=3，是奇数，不再调用自身，接着执行下一句输出参数值，即3，然后返回第一次调用过程中执行下一句输出第一次调用参数值，即6。因此程序会输出3  6。
转载请注明原文地址:https://www.kaotiyun.com/show/PlQp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)