有如下的程序：
Private Sub Command1_Click()
Dim k As Integer，m AB Integer
Dim P As Integer
k=4:m=1
P=Fun(k，m) =Print P；
P=Fun(k，m) :Print P
End Sub
Private Function Fun(a As Integer，b As Integer)
Static m As Integer，i As Integer
m=5:i=2
i=i+m+1
m=i+a+b
Fun=m\2
End Function
单击命令按钮后，输出结果为
Ａ) 2 2 Ｂ) 4 4
Ｃ) 5 5 Ｄ) 6 6

病人突然剧烈腹痛，检查伴有膈下游离气体。可能的诊断是：（）

A.肠梗阻

B.胃十二指肠溃疡穿孔

C.急性阑尾炎

D.急性胆囊炎

E.急性胰腺炎