[主观题]

阅读程序： 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

[单选题]阅读程序 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

    [单选题]阅读程序： 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)For i=1 To

    [单选题]请阅读程序：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．出错

  • 查看答案

    • 阅读程序: Option Base 1 Dim arr()As Integer

    [单选题]阅读程序:Option Base 1D．im arr()As IntegerPrivate Sub Form_Click()D．im i As Integer, j As IntegerReDim arr(3,2)F．or i = 1 To 3F．or j = 1 To 2arr(i,j)=i*2+jNextNextReDim Preserve arr(3,4)F．or j=3 To 4arr(3,j)=j+9NextPrint arr(3,2)+arr(3,4)E．nd Sub程序运行后,单击

  • 查看答案

    • 阅读程序:Function F(a As Integer) b=0 Static

    [单选题]阅读程序： Function F(a As Integer) b=0 Static c b=b+1 c=c+1 F=a+b+c End Function Private Sub Command1_Click() Dim a As Integer a=2 For i=1 To 3 Print F(A)Next i End Sub 运行上面的程序，单击命令按钮，输出结果为 ______。A．4 4 4B．4 5 6C．4 6 8D．4 7 9

  • 查看答案

    • 有以下程序:Sub subP(b()As Integer) For i=1 To

    [单选题]有以下程序： 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

    [单选题]有程序如下: 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

    [单选题]有以下程序： 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

  • 查看答案

    • 请阅读程序:Private Sub Form_Click()m=1For i=4

    [单选题]请阅读程序：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．* ** *** ****

  • 查看答案

    • 阅读程序: Function Fun(a As Integer) Static

    [单选题]阅读程序:F．unction Fun(a As Integer)Static cb=0:b=b+2:c=c+2F．=a*b*cE．nd FunctionPrivate Sub Command1_Click()D．im a As Integera=2F．or i=1 To 2Print Fun(a);NextE．nd Sub运行上面的程序,单击命令按钮,输出结果为A．8 16B．9 18C．10 20D．7 14

  • 查看答案