当前位置:IT认证>BASIC题库

问题:[填空题]

[填空题] 执行下面程序,第一行输出结果是 【12】 ,第二行输出结果是 【13】 。 Option ExplicitPrivate Sub Form_Click( ) Dim A As IntegerA=2Call Sub1 (A) End Sub Private Sub1 (x As Integer) x=x*2+1 If x<10 Then Call Sub1(x) End If x=x,2+1 Print x End Sub

  

参考答案:

[12]23[13]47

  参考解析

递归是一种十分有用的程序设计技术。递归过程是在过程定义中调用(或间接调用)本过程的过程。递归过程的关键部分就是要子过程函数Sub1()被调用了多少次。当x=2时调用了第一次,当x=5时调用了第二次,当x=11时不再调用,退出之前分别按x=23和x=47输出。

微信端