阅读程序： Function Fun(a As Integer) Static C b=0：b=b+2：c=c+2 F=a*b*c End Function Private Sub Command1_Click() Dim a As Integer a=2 For i=1 To 2 Print Fun(A) ； Next End Sub 运行上面的程序，单击命令按钮，输出结果为

A．8 16

B．9 18

C．10 20

D．7 14

[单选题]阅读程序：F．unction Fun(a As Integer)Static c，b=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

[单选题]阅读程序： Function Fun( a As Integer) Static c b=0:b=b+2:c=c+2 F=a*b*c End Function Private Sub Commandl _ Click( ) Dim a As Integer a=2 For i = 1 To 2 Print Fun (a); Next End Sub 运行上面的程序，单击命令按钮，输出结果为A．8 16B．9 18C．10 20D．7 14

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

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

[单选题]阅读程序：F．unction fac(ByVal n As Integer)As IntegerD．im temp As Integertemp=1F．or i％=1 To ntemp=temp*i％Next i％fac=tempE．nd FunctionPrivate Sub Form_Click()D．im nsum As Integernsum=1F．or i％=2 To 4nsum=nsum+fac(i％)Next i％print nsumE．nd Sub程序运行后，单击窗体，输出结果是

[单选题]阅读程序: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程序运行后,单击

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

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