执行下面程序，第一行输出结果是 (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

天源轧钢厂的发货行为如何定性他与宇通公司的合同何时成立合同内容如何确定