[填空题] 执行下面程序，第一行输出结果是【14】，第二行输出结果是47。 Option Explicit Private Sub Form_Click( ) Dim A As Int

20 查阅

[填空题] 执行下面程序，第一行输出结果是【14】，第二行输出结果是47。

Option Explicit

Private Sub Form_Click( )

Dim A As Integer

A=2

Call 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

参考答案:

[命题目的] 考查考生对过程调用的应用情况。[解题要点] 递归是一种十分有用的程序设计技术。递归过程是在过程定义中调用(或间接调用)本过程的过程。递归过程的关键部分就是要子过程函数 Sub1()被调用了多少次。当x=2时调用了第1次，当 x=5时调用了第2次，当x=11时不再调用，退出之前分别按x=23和x=47输出。[考点链接] 通用过程的调用和通用过程中的参数调用。

计算机考试