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

针孔产生的可能原因；（）

A、喷涂油漆过厚

B、喷涂后晾干时间不够

C、油漆本身存在问题