单击命令按钮时，下列程序的执行结果为（ ）。　　Private Sub Command1_Click()　　　Dim x As Integer，y As Integer　　　x=12：y=32　　　Call Proc(x，y)　　　Print x；y　　End Sub　　Public Sub Proc(n As Integer，ByVal m As Integer)　　　n=n Mod 10　　　m=m Mod 10　　End Sub

A．12 32

B．2 32

C．2 3

D．12 3

男性，28岁，突发上腹部疼痛，蔓延至全腹8小时，腹痛呈持续性。查体：患者呈舟状腹，全腹有明显压痛及反跳痛，肝浊音界缩小，移动性浊音(土)，肠鸣音消失。血常规： WBCl8×10⁹/L，N0.9。此患者应考虑为

A．急性胆囊穿孔腹膜炎
B．消化性溃疡穿孔腹膜炎
C．急性阑尾炎穿孔腹膜炎
D．重症胰腺炎并感染