请阅读程序：　　Sub subP（b（）As Integer）　　For i=1 To 4　　b（i）=2＊i　　Next i　　End Sub　　　　Private Sub Command 1_Click（）　　Dim a（l To 4）As Integer　　A（l）=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．

B．

C．

D．出错

禁止承包单位将其承包的全部建筑工程转包给他人，禁止承包单位将其承包的全部建筑工程肢解以后以分包的名义分别转包给他人。