[单选题]有以下程序： 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 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) 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 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 subP(b()As Integer)F．or i=1 To 4b(i)=2*iNext iE．nd SubPrivate Sub Command 1_Click()D．im a(1 To 4)As Integera(1)=5：a(2)=6：a(3)=7：a(4)=8subP a()F．or i=1 To 4Print a(i)Next iE．nd Sub运行上面的程序，单击命令按钮，则输出结果是( )。A．2 4 6 8B．5 6 7 8C．10 12 14 16D．出错

[单选题]（ 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．

[单选题]阅读程序 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 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运行上面的程序，单击命令按钮，输出结果为。

[单选题]已知有下面过程： Private Sub proc1(a As Integer,b As String,Optional x As Boolean) ...... End Sub 正确调用此过程的语句是______。A．Call procl(5)B．Call procl 5,"abc",FalseC．procl(12,"abc",True)D．procl 5,"abc"

[试题]有一过程如下:Sub Sub1(m As Integer,total As Long)D．im i As Integertotal=1F．or i=1 To mtotal=total*iNextE．nd Sub调用它的事件过程如下:Private Sub Command1_Click()D．im tot As Long,a As Integera=Val(InputBox("请输入数据"))C．all Sub1(a,tot)Print totE．nd Sub则输入数据5,运行结果为[ ]。