下面运行程序后，单击命令按钮，输出出的结果是 【12】 。 Private Sub Command1_Click( ) Dim a% (1 To 5) ,i%, s#For i = 1 To 5 a(i) =iNexts = Fun(a)Print"s="; s; End Sub Function Fun(a() As Integer) Dim t#, i% t=1For i = LBound(a) To UBound(a) t=t * a(i)NextFun =t End Function

急性白血病的血象及骨髓象特点是（）

A.骨髓增生低下，全血细胞减少

B.骨髓增生明显活跃，分类以中、晚幼和杆状核细胞为主

C.骨髓增生明显活跃，分类以原始和早幼细胞为主

D.红系增生活跃，粒系和巨核细胞系多正常

E.骨髓巨核细胞数正常或增加