下面程序：
Private Sub Form_Click()
Dim x,y,z As Integer
x=5
y=7
z=0
CallPI(x,y,z)
Print Str(z)
End Sub
SubP1(By Val a As Integer, By Val b As Integer, c As Integer)
C=a+b
End Sub
运行后的输出结果为______。

A．0

B．12

C．Str(z)

D．显示错误信息

患者男性，45岁，头晕，CT检查发现额部左侧可见一类"D"字形略高密度影，病灶边界锐利光整，内可见点片状钙化，宽基底与脑膜相连，增强扫描均匀一致强化，瘤周可见片状低密度水肿区。该患者首先考虑的诊断是（）

A.星形细胞瘤

B.脑膜瘤

C.蛛网膜囊肿

D.转移瘤

E.淋巴瘤