单击命令按钮时，下列程序的执行结果是

Private Sub Command1_Click()

B．T 4

E．nd Sub

Private Sub BT(x As Integer)

x=x*2+1

If x＜6 Then

C．all BT(x)

E．nd If

x=x*2

Print x；

E．nd Sub

A．15

B．16

C．17

D．18