选择题
39. 执行下面的程序,消息框里显示的结果是______。
Private Sub Form_Cick()
Dim Str As String, S As String, k As Integer
Str="abc"
S=Str
For k=Len (Str) To 1 Step-1
S=S&(Mid(Str, k, 1.)
Next k
MsgBox S
End Sub
【正确答案】
B
【答案解析】[考点] 本题考查的是字符串函数和循环语句For... Next的使用。
循环语句For... Next能够重复执行程序代码区域特定次数,使用格式如下:
For循环变量=初值To终值[Step步长]
循环体
[条件语句序列
Exit For
结束条件语句序列]
Next [循环变量]
在VBA中有三种取子串函数:left()函数用于在字符串左端开始取n个字符;Right函数用于在字符串右端开始取n个字符(注意子串中字符的顺序与母串中相同);Mid()函数可以实现在任何位置取任何长度的子串。字符串长度检测函数Len(<字符串表达式>或<变量名>)的作用是返回字符串所含字符数。本题中相当于每次循环从后向前取得str中的一个字符连接到S的后面,即最后S的值为abccba。