执行下面的程序，消息框里显示的结果是______。 Private Sub For

问题填空题

执行下面的程序，消息框里显示的结果是______。
Private Sub Form_Click()
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

答案

参考答案：abccba

解析：本题考查的是字符串函数和循环语句For…Next的使用。循环语句For…Next能够重复执行程序代码区域特定次数，使用格式如下：
For循环变量=初值 To 终值[Step 步长]
循环体
[件语句序列
Exit For
结束条件语句序列]
Next[循环变量]
在VBA中有三种取于串函数：Left函数用于在字符串左端开始取n个字符：Right函数用于在字符串右端开始取n个字符(注意子串中字符的顺序与母串中相同)；Mid函数可以实现在任何位置取任何长度的子串。字符串长度检测函数Len(＜字符串表达式＞或＜变量名＞)的作用是返回字符串所含字符数。本题中相当于每次循环从后向前取得Str中的一个字符连接到S的后面，即最后S的值为abccba。