运行下面的程序,其输出结果(str2的值)为【 】。 Dim str1, str2 As String Dim i As Integer str1="abcdef" For i=1 To Len(str1) Step 2 str2=UCase(Mid(s

admin2010-03-22  24

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

选项

答案ECA

解析 本程序代码的功能是从源字符串的第一个字符开始,把所有第奇数个的字符转换为大写并按倒序排列,得到新的字符串。
最开始str2字符串为空,当第一次执行循环时,先取出"a",再转换为大写"A",再和str2相连接,得到"A",最后再赋给str2。所以,第一次循环后,str2的值为"A"
当第二次执行循环时,取出"c",再转换为大写"C",再和str2相加接,得到"CA",最后再赋给str2。所当第二次循环后,str2的值为"CA"
当第三次执行循环时,取出"c",再转换为大写"E",再和str2相连接,得到"ECA",最后再赋给str2。所以,第三次循环后,str2的值为"ECA"
转载请注明原文地址:https://jikaoti.com/ti/UWP0FFFM
0

最新回复(0)