气闭昏厥或瘀血攻心，应采取骨伤内治法中的那一法（）。

A.开法

B.和法

C.补法

D.温法

E.消法

运行下面的程序,单击Cmd1,窗体上显示的第一行是（）,第二行是（） ,最后一行是（）。

Option Explicit

Private Sub Cmd1_Click()

Dim A As Integer

A=3

Call Sub1(A)

Print A

End Sub

Private Sub 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