有如下程序：　　Private Sub Command1_Click()　　　　Dim k As Integer，m As Integer　　　　Dim p As Integer　　　　k=4：m=1　　　　p=PC(k，m)：Print p；　　　　p=PC(k，m)：Print p　　End Sub　　Private Function PC(a As Integer，b As Integer)　　　　Static m As Integer，i As Integer　　　　m=0：i=2　　　　i=i + m + 1　　　　m=i + a + b　　　　PC=m　　End Function　　程序运行后，输出的结果为（ ）。

A．java.awt.panel

B．java.applet.Applet

C．java.awt.frame

D．java.awt.Window

男，25岁。因高位小肠瘘1天入院，入院后经颈内静脉插管滴入肠外营养液，两周后突然出现寒战、高热，无咳嗽、咳痰，腹部无压痛和反跳痛。

最有可能的诊断是（）

A.高渗性非酮症昏迷

B.肺部感染

C.气胸

D.导管性脓毒症

E.咽喉部感染