阅读下列程序： Private Sub Command1_Click() Dim i As Integer, k As Integerk=2For i=1 To 3 Print H(k);Next i End Sub Function H(j As Integer) Static b a=0 a=a+r b=b+1 H=a*b+j End Function 单击命令按钮，执行程序，输出结果是( )。

A．2 3 4

B．3 4 5

C．5 6 7

D．3 5 6

一患者术后伤口渗血不止，临床疑有DIC，应选择下列哪一组筛选试验( )

A．出血时间，束臂试验，凝血时间
B．血小板计数，凝血酶原时间，纤维蛋白原测定，部分活化凝血活酶时间
C．血小板计数，血块收缩，出血时间
D．凝血时间，凝血酶原时间，部分活化凝血活酶时间
E．血小板计数，出血时间，凝血时间，部分活化凝血活酶时间