某男性，58岁，因头晕3年余，四肢麻木2个月入院。查体：面色暗红，全身浅表淋巴结不肿大，肝肋下2指，质韧，边界清，无压痛；脾肋下1指，质韧，边界清。实验室检查：血常规示RBC7.2×10¹²/L，Hb220g/L，WBC22.9×10⁹/L，PLT580×10⁹/L，NAP积分为180分，BM示骨髓增生明显或极度明显活跃，红、粒、巨核三系均增生，以红系为主，各系各阶段有核细胞比值及形态大致正常，结合上述资料该病人最可能的诊断为（）

A.慢性粒细胞性白血病

B.真性红细胞增多症

C.原发性血小板增多症

D.骨髓纤维化

E.骨髓异常增生综合征

在窗体上面一个名称为Commandl的命令按钮，然后编写如下程序：
Option.Base 1
Private Sub Command1_Click()
Dim a As Variant
a=Array(1，2，3，4，5)
Sum = 0
For i = 1 To 5
Sum=Sum+a(i)
Next i
x=Sum/5
For i=1 To 5
If a(i) ＞x Then Print a(i)；
Next i
End Sub
程序运行后，单击命令按钮，在窗体上显示的内容是

A．1 2

B．1 2 3

C．3 4 5

D．4 5