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

admin2013-03-30  33

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

选项

答案ECA

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

最新回复(0)