Question

急！VB的一道题！！！求详细解答过程

运行下面的程序,单击Cmd1,窗体上显示的第一行是___(7)___,第二行是___(8)___ ,,最后一行是___(9)___。
Option Explicit
Private Sub Cmd1_Click()
Dim A As Integer
A=3
Call Sub1(A)
Print A
End Sub
Private Sub 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

Answer 1

这道题烦人的地方是程序自己调用自己又叫递归调用，文字分析如下：

1、程序开始执行A=3，调用sub1，传地址方式，相当于对A操作；

2、进入sub1，A=A*2+1，A=7，判断A<10，又调用sub1

3、又进入sub1，A=A*2+1，A=15，判断A>10，执行A=A*2+1，print A 打印第一行31

4、结束自己调用自己后执行A=A*2+1,print A 打印第行二行63

5、返回主程序执行print A 打印第行三行63

如果用图示的办法，那更是一目了然！剪一个递归调用的示意图，帮你理解！

Answer 2

第一行是31，第二行是63 ，最后一行是63。

调试，按F8，很清楚的能看懂

Answer 3

31
63
63