计算机二级
执行下面的程序，单击窗体后窗体消息框内显示结果是( )。 PRIVATE SUB FORM_CLICK() DIM STR AS STRING, K AS INTEGER STR="AB" FOR K = LEN(STR) TO 1 STEP -1 STR=STR&CHR(ASC(MID(STR, K, 1)) +K) NEXT K MSGBOX STR END SUBA．ABCEB．ABCDC．ABDBD．ABFB
题目
执行下面的程序，单击窗体后窗体消息框内显示结果是( )。 PRIVATE SUB FORM_CLICK() DIM STR AS STRING, K AS INTEGER STR="AB" FOR K = LEN(STR) TO 1 STEP -1 STR=STR&CHR(ASC(MID(STR, K, 1)) +K) NEXT K MSGBOX STR END SUB
A．ABCE
B．ABCD
C．ABDB
D．ABFB
参考答案和解析
解析：对字符串变量STR(初始值为"AB")进行字符追加，分析其中的Len、Chr和Mid三个字符串处理函数后，可以判断出追加的字符是D和B，故答案C正确。
相似问题和答案
第1题：
在窗体上画一个名称为Label1的标签，然后编写如下事件过程： Private Sub Form_Click() Dim arr(10, 10)As Integer Dimi As Integer, j As Integer For i=2 To 4 For j=2 To 4 arr(i, j)=i*j Next j Next i Label1. Caption=Str(arr(2, 2)+arr(3, 3)) End Sub 程序运行后，单击窗体，在标签中显示的内容是______。
A．12
B．13
C．14
D．15
解析：经过双重循环运算后，数组arr(2，2)和arr(3，3)的值分别为4和9，其相加的值为13，函数Str(13)返回字符串“13”。
第2题：
现有以下程序代码： Private sub Form_click( ) Static s as integer s=s+1 text4, text = str(s) End sub 单击窗体4次后，文本框中的内容是( )。
A．4
B．0
C．2
D．以上都不对
解析：s是静态变量，过程运行完后不释放。
第3题：
执行下列的程序，消息框里显示的结果是______。
Pfivate Sub Form_Click()
Dim Str As String
Str＝""
S="Access"
For i＝Len(S) To 1 Step-1
Str＝Str&Mid(S.i,1)
Next I
MsgBox Str
End Sub
sseccA 解析： 本题考查VBA中字符串的知识。本题中循环次数等于字符串的长度，每次在Str后面连接上一个字符，该字符取自字符串S的第i位。由于i反向循环，实际上完成的是字符串倒序的功能。
第4题：
设有以下窗体单击事件过程：
Private Sub Form_Click()
a=1
For i=1 To 3
End Select
Next i
End Sub
打开窗体运行后，单击窗体，则消息框的输出内容是( )。
5 解析： 本题考查VBA程序设计中的多分支选择和循环的知识。在本题的程序中，共循环三次，第一次i的值为1，故此执行case语句中的a=a+1；第二次i的值为2，故此执行case语句中的a=a+2；第一次i的值为3，故此执行Case语句中的a=a+1。所以最后a的值为1+1+2+1=5。
第5题：
在窗体上画一个名称为Labell的标签，然后编写如下事件过程： Private Sub Form_Click() Dim arr(10,10)As Integer Dim i As Integer,j As Integer For i =2 To 4 For j=2 To 4 arr(i,j)=i*j Next j Next i Labell.Caption=Str(arr(2,2)+arr(3,3)) End Sub 程序运行后，单击窗体，在标签中显示的内容是
A． 12
B．13
C．14
D．15
解析：本题中For循环语句就是对数组赋值，而arr(i,j)=i*j。故art(2,2)=2*2=4,alt(3,3)=3*3=9，两者相加为13。
第6题：
在窗体上画一个命令按钮Command1和两个文本框，名称分别为Text 1和 Text 2 Text 2。编写如下两个事件过程： Dim str As String, strl As String Private Sub form_load() TextText = " " TextText = " " TextEnabled = False TextEnabled = False End Sub Private Sub Form. KeyPress(KeyAscii As Integer) str= str&Chr(KeyAscii) End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) str1 = strl&Chr(KeyCode) End Sub Private Sub Command1_Click() TextText =str TextText = str1 str= " " str1= " " End Sub 当在设计阶段把窗体KeyPreview属性设置为True时，程序运行过程中，在键盘上输入小写字母abc，然后单击命令按钮，则文本框Text1中显示的内容为 ______ 。
A．abc
B．不显示任何信息
C．ABC
D．出错
解析：在Command1的Click事件中将字符串变量str赋给Text1，str变量是在KeyPress事件中被赋值的，语句str＝str&Chr(KeyAscii)将输入的字符存储并连接起来，在此处是通过参数KeyAscii来得到输入字符的(因此要区分字母的大小写)，又因为在Form的Load事件中将Text1和Text2的Enabled属性设置成了 False，所以当前拥有输入焦点的对象是窗体，为了使窗体能接收键盘事件，已经将窗体的KeyPreview属性设置为了True，所以在输入小写字母abc后，单击Command1，触发其Click事件，使得Text1文本控件的值等于str字符中的值，即abc。
第7题：
阅读下面的程序：
Private Sub Form_Click（）
Dim Check As Boolean, Counter As Integer
Check = True
Counter = 5
Do
Do While Counter < 20
Counter = Counter + 1
If Counter = 10 Then
Check = False
Exit Do
End If
Loop
Loop Until Check = False
Print Counter
End Sub
程序运行后，单击窗体，输出结果为______。
10
第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题：
在窗体上绘制一个名称为Label1的标签，然后编写如下事件过程： Private Sub Form_Click() Dim arr(10,10)As Integer Dim i As Integer,j As Integer For i =2 To 4 For j =2 To 4 arr(i,j)=i*j Next j Next i Label1.Caption=Str(arr(2,2)+arr(3,3)) End Sub 程序运行后，单击窗体，在标签中显示的内容是( )。
A．12
B．13
C．14
D．15
第10题：
请阅读程序：
Private Sub Form_Click()
m=1
For i=4 To 1 Step-1
Print Str(m)；
m=m+1
For j=1 To i
Print”*”；
Next j
Next i
End Sub
程序运行后，单击窗体，则输出结果是( )。
A．1**** 2*** 3** 4*
B．4* 3** 2*** 1****
C．**** *** ** *
D．* ** *** ****
解析：本题是利用循环语句输出，每次循环在一行中输出i个星号，变量m是行号，j是星号个数，无参数的print语句让程序在新的一行输出。