请阅读程序：

Sub subP(b()As Integer)

F．or i=1 To 4

b(i)=2*i

Next i

E．nd Sub

Private Sub Command 1_Click()

D．im a(1 To 4)As Integer

a(1)=5：a(2)=6：a(3)=7：a(4)=8

subP a()

F．or i=1 To 4

Print a(i)

Next i

E．nd Sub

运行上面的程序，单击命令按钮，则输出结果是( )。

A．2 4 6 8

B．5 6 7 8

C．10 12 14 16

D．出错

[单选题]阅读程序： 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 8B．5 6 7 8C．10 12 14 1

[主观题]阅读程序： Sub p( b () As Integer)For i =1To 4 b(i) = 2(iNext 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 call p (a) For i=1 To 4 Print a(i) Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为。

[单选题]阅读程序 SUB P(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 P A( ) FOR I = 1 TO 4 MSGBOX A(I) NEXT I END SUB 运行上面的程序，单击命令按钮COMMAND1后，消息框4次输出的内容分别是( )。A．出错B．1

[单选题]有以下程序： 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(i)＝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 8B．5 6 7 8C．10 12

[单选题]有程序如下: 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 8B．5 2 2 2C．10 1

[单选题]有以下程序： 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 subPa() For i=1 To 4 Print a(i) Next i End Sub 运行上面的程序，单击命令按钮，输出结果为( )A．2 4 6 8B．5 6 7 8C．10 12 14 16

[单选题]有以下程序：Sub subp（b（）As Integer）F．or i=1To4b（i）=2-iNext iE．nd SubPrivate Sub Command1_Click（）D．im a （1 To 4）As IntegerA．） （1）=5A．） （2）=6A．） （3）=7A．） （4）=8subpa（）F．or i=1 To4Print a （i）Next iE．nd Sub运行上面的程序，单击命令按钮，输出结果为（ ）。 A．2 4 6 8B．5 6 7 8C．10 12 14 1

[单选题]（ 26 ）有以下程序：Sub subP(b() As Integer)F．or i = 1 To 4b(i) = 2 * iNext iE．nd SubPrivate Sub Command1_Click()D．im a(1 To 4) As Integera(1) = 5a(2) = 6a(3) = 7a(4) = 8subP a()F．or i = 1 To 4Print a(i)Next iE．nd Sub运行上面的程序，单击命令按钮，输出结果为A． ） 2468B． ） 5678C．

[单选题]请阅读程序：Private Sub Form_Click()m=1F．or i=4 To 1 Step-1Print Str(m)；m=m+1F．or j=1 To iPrint”*”；Next jPrintNext iE．nd Sub程序运行后，单击窗体，则输出结果是( )。A．1**** 2*** 3** 4*B．4* 3** 2*** 1****C．**** *** ** *D．* ** *** ****

[单选题]请阅读程序：Option Base 1Pfivate Sub Form_Click()D．im Arr(4，4)As IntegerF．or i=1 To 4F．or j=1 To 4A．rr(i,j)=(i-1)*2+jNext jNext iF．or i=3 To 4F．or j=3 To 4Print Arr(j，i)；Next jPrintNext iE．nd Sub程序运行后，单击窗体，则输出结果是( )。A．5 7 6 8B．6 8 7 9C．7 9 8 10D．8 10 8 11