阅读下列程序：　　Private Sub Command1_Click()　　　Dim i As Integer，k As Integer　　　k=2　　　For i=1 To 3　　　　　Print H(k)；　　　Next i　　End Sub　　Function H(j As Integer)　　　a=0　　　Static b　　　a=a+1　　　b=b+1　　　H=a*b+j　　End Function　　程序运行后，单击命令按钮输出结果是（ ）。

A．234

B．345

C．567

D．356

肉芽肿性炎的特点是

A．纤维母细胞、毛细血管、局部组织增生

B．疏松组织内中性粒细胞弥漫性浸润

C．淋巴细胞、浆细胞和巨噬细胞浸润

D．巨噬细胞及其衍生细胞结节状增生