问题 填空题

下列程序段运行后消息框的输出结果为______。
s="Access"
Dim Str As String
For i=1 To Len(s)
str=UCase(Mid(S,i,1) ) +str
Next i
MsgBox str

答案

参考答案:SSECCA

解析: 本题考查有关字符串函数的知识。在VBA中有很多字符串函数,其中的Mid函数可以实现在任何位置取任何长度的子串;Len函数返回字符串的长度;UCase函数强制把字符转换成大写字母。本题中应该注意到虽然循环变量i是逐次递增也就是正向循环,但是每一次使用Mid函数取得的一个字符都连接到原来的str前面,实际上实现了字符串的逆序存放。结合其他函数可知最后结果为“SSECCA”。

选择题
单项选择题