编写如下事件过程和函数过程： Private Sub Form_Chck() DimBum(1 To 6)As Single num(1)=103:num(2)=190:num(3)=0 Bum(4)=32:num(5)=-56:num(6)=100 Print Pdnt p2(6,hum()) End Sub Private Function p2(ByVal n As Integer,number()As Single)As Integer p2=number(1) Forj=2 Ton lfnumber(j)＜p2 Thenp2=number(j) Next j End Function 程序运行后窗体上显示的值是( )。

A．-56

B．0

C．103

D．190

男性，67岁，慢性咳嗽，咳痰20多年，活动后气急4年。查体：双肺散在干湿啰音，心脏正常。血WBC11×10⁹/L，胸片双肺中下肺野纹理增强。此患者最可能的诊断是（）

A.支气管哮喘

B.支气管扩张

C.喘息型慢性支气管炎

D.支气管肺癌

E.浸润型肺结核