在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码：
Option Base 1
Private Sub Command1_Click( )
Dim a
s=0:j =1
a = Array(1,2,3,4)
For i=4 To 1 Step -1
s =s +a(i) *j
j=j * 10
Next
Print s
End Sub
运行上面的程序并单击命令按钮，其输出结果是

A．4221

B．1234

C．34

D．12

患者男，48岁，因“乏力、低热2年”来诊。患者于2天前查血常规：白细胞增多。既往史无特殊。查体：体温36.5℃，脉搏86次/分，呼吸18次/分，血压90/50mmHg（1mmHg=0.133kPa）。皮肤无苍白、黄染，浅表淋巴结无肿大。心、肺未见异常。腹平软，肝肋下未触及，脾Ⅰ线9.5cm，Ⅱ线11.5cm，Ⅲ线-4.5cm。双下肢无水肿。

为明确诊断应立即进行的检查项目包括（）

A.血常规+白细胞分类

B.骨髓细胞形态、骨髓活检

C.细胞染色体核型、BCR-ABL1融合基因，Jak2/V617F突变

D.中性粒细胞碱性磷酸酶

E.腹部B型超声或CT等

F.肝功能