阅读下列程序：

PrivateSubCommand1_Click()

Dim i As Integer，k As Integer

k=2

For i=1 To 3

Print Fun(k)；

Next

End Sub

Function Fun(j As Integer)

Static b

a=0

a=a+1

b=b+1

Fun=a*b+j

End Function
程序运行后，单击命令按钮输出结果是

A．234

B．345

C．567

D．356

患者女，42岁，有腹痛史3年，腹痛较剧，痛处不移，伴有月经不调，舌紫暗，脉弦，该病例中医辨证为（）

A.肝气郁滞

B.气滞血瘀

C.瘀热互结

D.寒凝血瘀

E.血瘀夹虚