如图所示，将一注射器端口密封，注射器内封有一定质量空气，在活塞下挂一重物，活塞下移一段距离，如果空气温度不变，则注射器内空气质量______，密度______，气压______．

单击命令按钮时，下列程序的执行结果是( )。
Private Sub Command1_Click()
Call BT 4
End Sub
Private Sub BT(x As Integer)
x=x*2+1
If x ＜ 6 Then
Call BT(x)
End If
x=x*2
Print X；
End Sub

A) 15
B) 16
C) 17
D) 18