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

问题填空题

执行下面的程序，消息框里显示的结果是______。
Private Sub Form_Click()
Dim Str As Scring，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()函数是字符串转换字符代码函数，返回字符串首字符的AScⅡ值。Mid(＜字符串表达式＞，＜N1＞，＜N2＞)函数是从字符串左边第N1个字符起截取N2个字符。开始Len(Str 0=2，Mid(Str，k，1)=Mid(ab，2，1)=b，则Chr(Asc(b)+2)=d。