计算机二级
执行下面的程序，消息框里显示的结果是( )。Private Sub Form_Click()Dim Str As String,S As String,k As IntegerS=StrFor k=Len(Str) To 1 Step -1S=S & (Mid(Str,k,1)Next kEnd Sub
题目
执行下面的程序，消息框里显示的结果是( )。
Private Sub Form_Click()
Dim Str As String,S As String,k As Integer
S=Str
For k=Len(Str) To 1 Step -1
S=S & (Mid(Str,k,1)
Next k
End Sub
参考答案和解析
abccba
相似问题和答案
第1题：
程序段如下，程序运行后消息框显示的结果是______。 Dim a, s As String, i As Integer a = "晴空万里" s = "" For i = 1 To 4 Step 2 s &= Mid（a, 4 - i, 2) Next MsgBox（s)
A．晴空万里
B．万里晴空
C．晴空
D．万里
第2题：
执行下面的程序，单击窗体后窗体消息框内显示结果是( )。 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正确。
第3题：
有以下程序： #include ＜iostream＞ #include ＜string＞ using namespace std; class Y; class X { private: int x; char *strx; public: X(int a, char *str) { x=a; strx=new char[strlen(str)+1]; strcpy(strx,str); } void show(Y &ob) ; }; class Y { private: int y; char *stry; public: Y(int b,char *str) { y=b; stry=new char[strlen(str)+1]; strcpy(stry, str); } friend void X: :show(Y &ob) ; }; void X: :show(Y &ob) { cout＜＜strx＜＜", "; cout＜＜ob, stry＜＜end1; } int main ( ) { X a(10,"X"); Y b (20, "Y"); a. show(B) ; return 0; } 执行后的输出结果是( )。
A．X,Y
B．a,b
C．X,X
D．Y,Y
解析：本题考核类的定义和友元函数的应用。①该程序中，类X的成员函数show()在类Y中说明为友元，因此，在该友元成员show()中可以访问类Y的私有成员stry。②成员函数show()的功能就是输出类X的私有成员strx和Y对象ob的私有成员stry，③主函数main()中定义了X类的一个对象a和Y类的一个对象b，并且都进行了初始化。然后调用对象a的成员函数show，输出对象a中私有成员strx中的内容和对象b中私有成员stry中的内容，即字符串stringX和stringY。
第4题：
以下程序： #include＜stdio.h＞ main() {char str[10]； scanf("%s"，&str)； printf("%s\n",str)； } 运行上面的程序，输入字符串how are you，则程序的执行结果是( )。
A．how
B．how are you
C．h
D．howareyou
解析：当从键盘输入bow are you时，由于scanf输入函数的特点是遇到空格时结束读入字符，因此，该程序只将how这3个字符送到了字符数组str中，并在其后自动加上结束符“\0”。
第5题：
执行下面的程序，消息框里显示的结果是（ ）。
A. abe
B. abccba
C. cbacba
D. abcabc
本题考查的是字符串函数和循环语句 For…Next的使用。循环语句For…Next能够重复执行程序代码区域特定次数．使用格式加下．
结束条件语句序列
Next【循环变量】
在VBA中有三种取子串函数：Left函数用于在字符串左端开始 取n个字符；Right函数用于在字符串右端开始取n个字符(注意子 串中字符的顺序与母串中相同)；Mid函数可以实现在任何位置取 任何长度的子串。字符串长度检测函数Len(<字符串表达式>或<变 量名>)的作用是返回字符串所含字符数。本题中相当于每次循环从 后向前取得Str中的一个字符连接到S的后面，即最后s的值为 abceba。
第6题：
执行下面的程序，消息框里显示的结果是 【 】 。
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
abdb 解析：本题考查VBA程序设计。题目较难，综合性强，要求考生对常用函数以及控制结构有一定的了解。考生应该了解Len()函数是字符串长度检测函数，返回字符串所含字符数。 Chr()函数是字符代码转换字符函数，将数值表达式转换成字符串。Asc()函数是字符串转换字符代码函数，返回字符串首字符的ASCII值。 Mid(字符串表达式＞,N1＞,N2＞)函数是从字符串左边第N1个字符起截取N2个字符。开始Len(Str0=2，Mid(Str，k，1)=Mid(ab,2,1)=b，则Chr(Asc(B) +2)=d，所以循环第1次结束后 Str="abd"，同样的第2次循环结束后， Str="abdb"，MsSBox用来将Str输出。正确答案为abdb。
第7题：
执行下面的程序，消息框的输出结果是__________。
110
第8题：
执行下面的程序，消息框里显示的结果是_______。
Private Sub Form_Click()
Dim Str As String
Str=""
S="Access"
Fori=Len(S)To 1 Step-l
Str=Str&Mid(S，i，1)
Next i
MsgBox Str
End Sub
sseccA 解析：本题考查VBA中字符串的知识。本题中循环次数等于字符串的长度，每次在Str后面连接上一个字符，该字符取自字符串 S的第i位。由于i反向循环，实际上完成的是字符串倒序的功能。
第9题：
执行下列的程序，消息框里显示的结果是______。
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反向循环，实际上完成的是字符串倒序的功能。