在窗体中添加—个名称为Command1的命令按钮，然后编写如下代码： 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 Dim b As Integer a=2 For i=l To 3 b=F(A)Print b Next i End Sub 程序运行后，如果单击按钮，则在窗体上显示的内容是

A．4 4 4

B．4 5 6

C．5 6 7

D．5 5 5

[单选题]在窗体中添加一个命令按钮(名称为Command1)，然后编写如下代码： Private Sub Command1_Click() a=0:b=5:c=6 MsgBox a=b＋c End Sub 窗体打开运行后，如果单击命令按钮，则消息框的输出结果为______。A．11B．a=11C．0D．False

[单选题]在窗体中添加一个命令按钮(名称为Command1) ，然后编写如下代码： Private Sub Command1_Click( ) A=95 If A＞60 Then I=1 If A＞70 Then I=2 If A＞80 Then I=3 If A＞90 Then I=4 MsgBox I End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是______。A．1B．2C．3D．4

[单选题]在窗体中添加一个命令按钮(名称为Command1)，然后编写如下代码： Private Sub Command1_Click() a=3:b=4:c=5 MsgBox a=b+c End Sub 窗体打开运行后，如果单击命令按钮，则消息框的输出结果为( )。A．0B．9C．a=9D．假

[单选题]在窗体上画—个命令按钮，其名称为Command1，然后编写如下代码：Option Base 1Private Sub Command1_ Click() Dim a a=Array(1,2,3,4) j=1 For i=,4 To 1 Step-1 s=s+ a(i)*j j=j*10 Next i Print sEnd Sub程序运行后，单击命令按钮，其输出结果是______。A．4321B．1234C．34D．12

[单选题]在窗体中添加—个名称为Command1的命令按钮，然后编写如下事件代码： Private Sub Command1_Click() s="ABBACDDCBA" For I=6 To 2 Step -2 x=Mid(s,I,I) y=Left(s,I) z=Right(s,I) z=x & y & z Next I MSgBox z End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是______。A．AABAABB．ABBABAC．BABBAD．BBABBA

[单选题]在窗体中添加—个名称为Command1的命令按钮，然后编写如下事件代码： Private Sub Command1_Click() MsgBox f(24,18) End Sub Public Function f(m As Integer,n As Integer)As Integer Do while m＜＞n Do while m＞n m=m-n Loop Do While m＜n n=n-m Loop Loop f=m End Function 窗体打开并运行后，单击命令按扭，则消息框的

[单选题]在窗体上画—个命令按钮(名称为Command1)，并编写如下代码：Function Fun1 (ByVala As Integer, b As Integer)As Integer Dim t As Integer t=a-b b=t+ a Fun 1=t+ bEnd FunctionPrivate Sub Command1_ Click() Dim x As Integer x=10 Print Fun1(Fun1 (x,(Fun1(x，x-1))),x-1)End Sub程序运行后，单击命令

[单选题]在窗体上画一个命令按钮，名称为 Command1, 然后编写如下代码：Option Base 0Private Sub Command1_Click（）D．im A （4）As Integer,B（4） As IntegerF．or k=0 To 2A．（k+1）=InputBox（“ 请输入一个整数 ”）B．（3-k）=A（k+1）Next kPrint B（k）E．nd Sub程序运行后，单击命令按钮，在输入对话框中分别输入2、4、6，输入结果为（ ）。 A．0B．2C．3D．4

[单选题]在窗体上画一个命令按钮，名称为Command1，然后编写如下代码：Option Base()Private Sub Command1_ Click() Dim A1(4) As Integer, A2(4)As Integer For k= 0 To 2 A1(k+1)=InputBox(“请输入—个整数”) A2(3-k)=A1(k+1) Next k Print A2 (k)End Sub程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为______。A．0B．1C．2

[单选题]在窗体上画一个命令按钮，名称为Command1，然后编写如下代码： Option Base() Private Sub Command1 Click() Dim A(4)As Integer,B(4)As Integer For k=0 To 2 A(k+1)＝InputBox(“请输入一个整数”) B(3-k)＝A(k+1) Next k Print B(k) End sub 程序运行后，单击命令按钮，在输入对话框中分别输入2、4、6，输出结果为______。A．0B．2C．3D．4