女患，73岁，有肺心病病史3年，因1个月来低热，乏力，咳白黏痰带血丝来诊，体检：消瘦，肺气肿体征，两肺底少量捻发音，右锁骨下区可闻细小湿啰音，心音纯整，心率78次／分，律齐。肝肋下1．5cm，无触痛，下肢无水肿，胸片显示两肺纹理增强，右肺尖斑片状阴影，密度不均匀。最可能的诊断是（）。

A.肺心病合并肺内感染

B.慢性支气管炎急性发作期

C.支气管扩张合并感染

D.右肺上浸润型肺结核

E.支气管肺癌

设已经在“菜单编辑器”中设计了窗体的快捷菜单，其顶级菜单为Bs，取消其“可见”属性，运行时，在以下事件过程中，可以使快捷菜单响应鼠标右键的是( )

A．Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single)
If Button=2 Then PopupMenu Bs,2
End Sub
B．Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single)
PopupMenu Bs
End Sub
C．Private Sub Form—MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single)
PopupMenu Bs,0
End Sub
D．Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
If(Button=vbLeftButton)0r(Button=vbRightButton)Then PopupMenu Bs
End Sub