问题 填空题

运行下面程序,其输出结果(str2的值)为 【13】
Dim str1,str2 As String
Dim i As Integer
strl="abcdef"
For i=1 To Len(str1) Step2
str2=UCase(Mid(str1,i,1))+str2
Next
MsgBox str2

答案

参考答案:ECA

解析:[知识点] 模块NBA程序设计基础/常用内部函数
[评析] 本程序代码的功能是,从源字符串的第一个字符开始,把所有第奇数个的字符转换为大写并按倒序排列得到新的字符串。
最开始str2字符串为空。当第一次执行循环时,先取出“a”,在转换为大写“A”,在和str2相连接,得到“A”,最后在赋给str2。所以,第一次循环后,str2的值为“A”
当第二次执行循环时,取出“c”,在转换为大写“C”,在和str2相连接,得到“CA”,最后在赋给str2。所以,第二次循环后,str2的值为“CA”
当第三次执行循环时,取出“e”,在转换为大写“E”,在和str2相连接,得到“ECA”,最后在赋给str2。所以,第三次循环后,str2的值为“ECA”
至此,循环结束,str2最终结果为“ECA”。

单项选择题 共用题干题
选择题