阅读程序:

F．unctionF(aAsInteger)AsInteger

b=0

Staticc

b=b+1

c=c+1

F．=a+b+c

E．ndFunction

PrivateSubCommand1_Click()

D．imaAsInteger

a=2

F．orI=1To3

PrintF( )

NextI

E．ndSub

运行结果为( )

A．4和5和6

B．4和4和4

C．5和5和6

D．6和6和6

[单选题]下面程序：F．unctionF(aAsInteger)b=0Staticcb=b+1c=c+1F．=a+b+cE．ndFunctionPrivateSubCommand1_Click()D．imaAsIntegera=2F．orI=1To3PrintF( )NextIE．ndSub运行上面的程序，单击命令按钮，输出结果为( )A．4,4,4B．4,5,6C．4,6,8D．4,7,9

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

[单选题]阅读程序：Private Sub Command1_Click()A．=0F．or j=1 to 15a=a+j mod 3Next jPrint aE．nd Sub程序运行后，单击窗体，输出结果是A． ）105B．)1C．)120D．)15

[单选题]阅读程序：Private Sub Form_ Click() a=0 For j=1 To 15 a=a+j Mod 3 Next j Print aEnd Sub 程序运行后，单击窗体，输出结果是______。A．105B．1C．120D．15

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

[单选题]阅读程序：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 + jNext jNext iReDim Preserve arr（3, 4）F．or j = 3 To 4arr（3, j） = j + 9Next jPrint arr（3, 2）

[主观题]阅读程序：Option Base 1Private Sub Form_Click（）D．im a（3）As IntegerPrint "输入的数据是：";F．or i = 1 To 3a（i）=InputBox（"输入数据"）Print a（i）;NextPrintIf a（1）t = a（1）a（1）= a（2）a（2）= ________E．nd IfIf a（2）>a（3）Thenm = a（2）E．lseIf a（1）>a（3）Thenm = ________E．ls

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

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