有如下程序：　　Private Sub Commandl_Click()　　　Dim a As Integer　　　a=2　　　For i=1 To 3　　　　　Print Gad (

A．

　　　　　Next i

　　End Sub

　　Function Gad (a As Integer)

　　　b=0

　　　Static c

　　　b=b + 1

10岁男孩，近8天来食欲不振，恶心，呕吐，乏力，尿色黄来院就诊，病前两周曾注射丙种球蛋白1支。检查：巩膜黄染，肝肋下1cm、脾未触及，化验：ALT500U／L，胆红素85．5μmol／L，抗HAV-IgM（+），抗HAV-IgG（+），HBsAg（+），抗HBc-IgM（+）。应诊断为（）

A.急性甲型肝炎，乙肝病毒携带者

B.急性乙型肝炎，既往感染过甲型肝炎

C.急性甲型肝炎、乙型肝炎

D.被动获得甲肝抗体，急性甲型肝炎，乙肝病毒携带者

E.被动获得甲肝抗体，急性乙型肝炎