有以下程序:Sub subP(b()As Integer)For i=1 To 4b(i)=2*iNext iEnd SubPrivate Sub Commandl 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)End Sub运行上面的程序,单击命令按钮,输出结果为【 】
单选题
有以下程序:Sub subP(b()As Integer)For i=1 To 4b(i)=2*iNext iEnd SubPrivate Sub Commandl 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)End Sub运行上面的程序,单击命令按钮,输出结果为【 】