在窗体上有一个命令按钮Command1，编写如下程序：
Private Sub Command1_Click()
Print pp1(3,7)
End Sub
Public Function pp1(x As Single,n As Integer)As Single
If n=0 Then
pp1=1
Else
If n Mod 2=1 Then
pp1=x*x+n
Else
pp1=x*x-n
End If
End If
End Function
程序运行后，单击该命令按钮，屏幕上显示的是( )。

A．2

B．1

C．0

D．16

男性，66岁，吸烟30年，因咳嗽、咳痰、喘息10年，加重伴心慌、尿少、双下肢水肿3天来诊。查体：口唇发绀，双肺散在干湿啰音，肝肋下2cm，双下肢凹陷性水肿

以下病史对诊断最有帮助的是（）

A.2岁时患麻疹及支气管肺炎

B.40年前患肺结核，治疗1年痊愈

C.吸烟30年

D.1年前患气胸，治疗1个月后痊愈

E.父亲死于急性心肌梗死