有程序如下: 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．出错

6～9：

某无梁楼盖柱网尺寸为6m×6m，柱截面尺寸为450mm×450mm,楼板厚200mm，如题图，混凝土强度等级为C25，箍筋采用HPB235钢，弯起钢筋采用HRB335钢。a_s=20mm。

若已知无梁楼板承受的集中反力设计值为F_l=424.1kN，则采用箍筋作为受冲切钢筋，所需的箍筋面积与（）项数值最为接近。

A．1040mm²

B．1142mm²

C．1324mm²

D．1274mm²