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

用预压法处理软土地基时，除应预先查明土层分布、层理、透水层位置等，尚应通过室内试验确定的设计参数有( )。

A．土层的给水度及持水性

B．土层的前期固结压力，天然孔隙比与应力的关系

C．水平固结系数，垂直固结系数

D．三轴试验抗剪强度指标