有程序如下: Sub subP(b() As Integer) For i=1 To 4 b(i)=2*i Next i End Sub Private Sub Command1_Click() Dim a(1 To 4) As Integer a(1)=5 a(2)=6 a(3)=7 a(4)=8 subP a() For i=1 To 4 Print a(i) Next i End Sub运行上面程序，单击命令按钮，输出结果为______ 。

A．2 4 6 8

B．5 2 2 2

C．10 12 14 16

D．出错

孕38周，诊断为胎盘早剥行剖宫产术，术中见子宫色紫，质软，胎儿胎盘娩出后，大量出血，注射宫缩剂并按摩子宫、补充凝血因子，但仍出血不止，血压下降，应立即给予（）

A.子宫切除

B.继续按摩子宫加热敷

C.止血药物

D.宫腔填塞

E.输血，等待血压上升