下列程序段的执行结果为______。
Dim m(3,3)As Integer
Dim i As Integer
Dim j As Integer
Dim x As Integer
For i=1 To 3
m(i,i)=i
Next
For i=0 To 3
For j=0 To 3
x=x+m(i,j)
Next
Next
Print x

A．3

B．4

C．5

D．6

男，33岁，饮酒后上腹剧痛、呕吐，体检：脉搏120/min，血压80/60mmHg。巩膜黄染，全腹压痛和反跳痛，肠鸣音消失，血白细胞16×10⁹/L，中性粒细胞0.89，血淀粉酶320U/L，血钙1.63mmol/L。最可能的诊断是（）

A.胃溃疡穿孔

B.急性胆囊炎穿孔

C.肠梗阻

D.急性水肿型胰腺炎

E.急性出血坏死型胰腺炎