男性20岁，高热、寒战、咳嗽、咳铁锈样痰4天，X线胸片示右下肺中等密度片状阴影，其周围血象变化可能为（）

A.中性粒细胞数增高

B.嗜碱性粒细胞数增高

C.嗜酸性粒细胞数增高

D.淋巴细胞数增高

E.单核细胞增多

在窗体上画一个命令按钮，然后编写如下程序：
Dim x As Integer
Sub inc(a As Integer)
x=x+a
End Sub
Private SubCommand1_Click()
inc 2
inc 3
inc 4
Msgbox x；
End Sub
程序执行后，单击Command1命令按钮，消息框显示结果是 【14】 。