Question

VB题目 我要尽可能的详细解释，20分！！ 3.运行下面的程序,单击Cmd1,窗体上显示的第一行是

VB题目 我要尽可能的详细解释，20分！！
3.运行下面的程序,单击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

输出结果为：

31

63

63

解释如下：

Option Explicit         ' 强制进行变量声明，即使用未声明的变量将报错

' Cmd1的点击事件，点击Cmd1时执行这里的代码

Private Sub Cmd1_Click()

    Dim A As Integer            ' 定义一个整型变量A

    A = 3               ' 将A副职为3

    Call Sub1(A)            ' 调用过程Sub1

    Print A         ' 输出A的值

End Sub

Sub1解释如图：

Answer 2

31
63
63
****************
A=3
X=3
X=7
X=15
X=15
X=31
Print X
X=63
Print X
A=63
Print A
****************

Answer 3

结果是：一行31 二行63 三行 63
程序从A=3 进入函数 Sub1(3) 得 x=3*2+1=7
因7<10 then 再次调用函数 Sub1(7) 得 x=7*2+1=15 因x>10所以跳到 x=15*2+1=31 输出31
这时再回到第一次的 end if 后面执行x=31*2+1=63
输出63
再回到Private Sub Cmd1_Click()中输出63

Answer 4

第一行：31

第二行：7

第三行：3

详细过程见附图

追问

你做错了，答案是31 63 63

追答

恩 我确实做错了!