运行下面程序，其输出结果(str2的值)为【13】。 Dim str1，str2

问题填空题

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

答案

参考答案：ECA

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