下面程序段，运行后的结果是
Private Sub Command1_Click()
Dim b%(1 To 4)，i%，t#
For i=1 TO 4
b(i)=i
Next i
t=Tof(b())
Print"t="；t，
End Sub
Function Tof(a()As Integer)
Dim t#，i%
t=1
For i=2 To UBound(

A．

新生儿出生时，身体红，四肢青紫，心率90次/分，呼吸20次/分，呼吸不规则，四肢能活动，弹足底有皱眉。

该患儿Apgar评分为（）

A.3分

B.4分

C.5分

D.6分

E.7分