男性，62岁，车祸伤后胸痛、气促1天来院。体检：胸壁压痛，未扪及骨擦感和皮下气肿，右下胸腔叩浊，右下肺呼吸音减弱，左肺呼吸音清晰。胸片示右肺门以下大片密度增高影。

应考虑下列哪项诊断（）

A.少量血胸

B.中量血胸

C.大量血胸

D.血气胸

E.进行性血胸

窗体上命令按钮Command1的事件过程如下：
Private Sub Command1_Click()
Dim total As Integer
total=s(1)+s(2)
Print total
End Sub
Private Function s(m As Integer) As Integer
Static x As Integer
For i=1 To m
x=x+1
Next i
s=x
End Function
运行程序，第三次单击命令按钮Command1时，输出结果为______。