以下程序的输出结果是D) 9 12 Option Base 1 Private Sub Command1_Click() Dim s(10)，p(3)As Integer k=5 For i=1 To 10 a(i)=i Next i For i=1 To 3 p(i)=a(i*i) Next I For i=1 To 3 k=k+ p(i)*2 Next i Print k End sub

A．33

B．28

C．35

D．37

患者男，32岁。右颈肿物1个月，CT扫描示右侧口咽及鼻咽软组织肿物，密度均匀，双侧颈部及纵隔有多个肿大淋巴结，边界清楚，最有可能的诊断是（）

A.鼻咽癌侵及口咽伴淋巴结转移

B.恶性纤维组织细胞瘤侵及鼻咽、口咽伴淋巴结转移

C.纤维肉瘤侵及鼻咽、口咽伴淋巴结转移

D.结核

E.淋巴瘤