计算机二级
（ 34 ）在窗体中添加一个名称为 Command1 的命令按钮，然后编写如下事件代码：Private Sub Command1_Click( )s="ABBACDDCBA"For I=6 To 2 Step -2x=Mid(s,I,I)y=Left(s,I)z=Right(s,I)z=x & y & zNext IMsgBox zEnd Sub窗体打开运行后，单击命令按钮，则消息框的输出结果是A ） AABAABB ） ABBABAC ） BABBAD ） BBABBA
题目
（ 34 ）在窗体中添加一个名称为 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 ） AABAAB
B ） ABBABA
C ） BABBA
D ） BBABBA
相似问题和答案
第1题：
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a S="VisualBasic" Print String(3, a$) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是______。
A．VVV
B．Vis
C．sic
D．11
解析：函数string(n，字符串)的功能是返回由n个指定“字符串”中第一个字符组成的字符串。本题中的字符串“VisualBasic”的第一个字符为“V”，所以返回3个“V”，即String函数返回的字符为“VVV”。
第2题：
在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：
36
第3题：
（ 11 ）在窗体中添加一个名称为 Command1 的命令按钮，然后编写如下事件代码：
Private Sub Command1_Click( )
Dim x As Integer, y As Integer
x=12 : y=32
Call p(x, y)
MsgBox x*y
End Sub
Public Sub p (n As Integer, By Val m As Integer)
n=n Mod 10
m=m Mod 10
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果为 ___________ 。
第4题：
在窗体上添加一个命令按钮，名称为Command1，然后编写如下程序：
Private Sub Command1_Click()
sum=0
For i=1 To 100 step 2
sum=sum+i
Next i
MsgBox sum
End Sub
打开窗体运行后，单击命令按钮，则消息框的输出结果为_______。
2500 解析：本题考查循环的知识。这个问题比较简单，实际上就是求1到100之间的奇数和，最终结果为2500。
第5题：
在窗体中添加一个命令按钮(名称为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．1
B．2
C．3
D．4
解析： if语句为if条件表达式1 Then语句1，当条件表达式1为真时要执行语句1。在程序中，A＝95，A＞90为真，因此执行语句“I＝4”，输出结果为4。
第6题：
在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：
Private Sub Command1_Click（）
Dim s，i
For i=1 To 10
s=s+i
Next i
MsgBox s
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果为 。
55
第7题：
在窗体中添加名称为Command1和名称为Command2的命令按钮以及文本框Text1，然后编写如下代码：Private sub Command1_Click() Text1.text="AB"End SubPrivate Sub Command2_Click() Text1.Text="CD"End Sub 首先单击Command1按钮，然后再单击Command2按钮，在文本框中显示 。A．AB B．CD C．ABCD D．CDAB
【解析】本题意在考查考生对文本框Text的理解。当单击Command1时，Text1的Text变为AB；当单击Command2时，Text1的属性变为CD，故选择B，不能选C，更不能选D。
第8题：
在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序： Private Sub Command1_Click() Dim a As Integer, b As String, c As Integer a=1234: b=Str(a)c=Len(b)Print c End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是______。
A．0
B．5
C．6
D．7
解析：当一数字用函数Str(数字)转成字符串时，总会在前头保留一空位来表示正负。如果数字为正，返回的字符串包含一前导空格暗示有一正号。
第9题：
在窗体中添加一个名为Command1的命令按钮，然后编写如下事件代码： Private Sub Command1_Click( ) a＝75 If a＞60 Then k＝1 ElseIf a＞70 Then k＝2 ElseIf a＞80 Then k＝3 ElseIf a＞90 Then k＝4 EndIf
A．1
B． 2
C． 3
D． 4
解析： a＝75满足条件“a＞60”，执行Then后的语句，将1赋值给变量 k，然后结束条件判断，将k的值1输出到消息框，所以消息框的结果是1。
第10题：
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Private Sub Commandl_Click( )
Static X As Integer
Static Y As Integer
Cls
Y=1
Y=Y+5
X=5+X
Print X, Y
End Sub
程序运行时，3次单击命令按钮Command1后，窗体上显示的结果为【 】。
15 6 解析：在本题过程中使用了两个Static变量，其中的变量Y每次都被重新赋值，因此不管执行多少次，Y的结果只会是6；而变量X的值则一直累计，执行3次后，x为15。