下面子过程语句说明合法的是

A．Sub f1(s1 As String*8)

B．Sub f1(n()As IntegeAs Integer

C．Function f1(f1 As IntegeAs Integer

D．Function f1(By Val n As Intege

患者，女，24岁，发热、腰痛3天。体温38℃，巩膜黄染，肝肋下1.0cm，脾肋下4cm。尿胆原（++），血清胆红素25μmol/L，Hb80g/L，WBC10.0×10⁹/L，血象可见晚幼红细胞，骨髓增生明显活跃，中晚幼红细胞增多，粒红比0.8：1，最可能的诊断为（）

A.急性黄疸型肝炎

B.慢性肝炎急性发作

C.急性白血病

D.自身免疫性溶血性贫血

E.巨幼细胞性贫血