填空题

执行下面程序，第一行输出结果是 [11] ，第二行输出结果是 [12] 。
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