若窗体中已有一个名为Command1的命令按钮、一个名为Label1的标签和一个名为Text1的文本框，且文本框的内容为空，然后编写如下事件代码：Private Function f(x As Long) As BooleanIf x Mod 2=0 Thenf=TrueElsef=False EndIfEnd FunctionPrivate Sub Commandl_Click()Dim n As Longn=Val(Me!text1)p=If(f(n)，"Even number"，"Odd number")Me!Label1．Caption=n& "is"&pEndSub窗体打开运行后，在文本框中输入21，单击命令按钮，则标签显示内容为【 】。

男性，70岁，咳嗽，咳痰，X线胸片示：右肺上叶体积缩小实变，实变下缘呈“反S征”。最可能的诊断（）

A.肺癌

B.肺炎

C.支气管息肉

D.支气管内膜结核

E.肺门淋巴结肿大压迫支气管