在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：　　Option Base 1　　Private Sub Command1_Click()　　　Dim a(10) As Integer　　　For i = 1 To 10　　　　a(i) = i　　　Next　　　Call swap（【 】）　　　For i = 1 To 10　　　　Print a(i);　　　Next　　　End Sub　　　Sub swap(b() As Integer)　　　　n =【 】　　　For i = 1 To n / 2　　　　　 t = b(i)　　　　　　b(i) = b(n)　 b(n) = t　　　　　【 】　　　Next　　End Sub　上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。请填空。

9岁男孩，因3个月来面色苍白、皮肤出血点及常流鼻血就诊。查体：贫血貌，皮肤散在出血点，肝右肋下刚可触及，脾未触及，外周血Hb60g／L，WBC2．5×10／L，血小板45×10／L，骨髓增生低下，全片未见巨核细胞。

9岁男孩，最可能的诊断（）

A.急性白血病

B.急性再生障碍性贫血

C.慢性再生障碍性贫血

D.原发性血小板减少性紫癜

E.脾功能亢进