填空题

执行下面程序，第一行输出结果是 (11) ，第二行输出结果是 (12) 。
Option Explicit
Private Sub Form_Click()
Dim A As Integer
　　A=2
　　Call Subl(A)
　　End Sub
Private Subl(x As Integer)
　　x=x2+1
　　If x＜10 Then
　　　　Call Subl(x)
　　End If
　　x=x2+1
　　Print x
End Sub

【参考答案】

W

<上一题目录下一题>

热门试题

填空题

为了能自动放大或缩小图像框中的图形与图像框的大小相适应，必须把该图片框的Stretch属性设置为______。

填空题

执行下面程序，第一行输出结果是 (11) ，第二行输出结果是 (12) 。 Option Explicit Private Sub Form_Click() Dim A As Integer A=2 Call Subl(A) End Sub Private Subl(x As Integer) x=x*2+1 If x＜10 Then Call Subl(x) End If x=x*2+1 Print x End Sub