2. 计算机
  3. 下列程序的执行结果为 Private Sub Command1_C1ick( ) Dim sl As String，s2 AS String s1="abcdef"

下列程序的执行结果为 Private Sub Command1_C1ick( ) Dim sl As String，s2 AS String s1="abcdef"

admin2009-02-13  24
问题 下列程序的执行结果为          Private Sub Command1_C1ick(   )             Dim sl As String，s2 AS String             s1="abcdef"             Call lnvert(s1，s2)             Print s2          End Sub          Private Sub lnvert(ByVal xstr As String，ystr As String)              Dim tempstr As Stdng              i=Len(xstr)              Do While i＞=1                 tempstr=tempstr+Mid(xstr，i，1)                 i=i-1              Loop              ystr=tempstr           End Sub
选项 A、fedcba
B、abcdef
C、afbecd
D、defabc
答案1
解析 被调过程Invert的参数xstr，ystr从主调函数中收到实参s1，s2传来的值"abcdef"，过程Invert开始声明了两个变量，都是String型的：xstr，ystr。2=Len(xstr)以上语句的功能是：i的值就是xstr的长度，此题为6。程序代码执行Do While．．．Loop的循环语句。循环体为tempstr=tempstr+Mid(xslr，i,1)，其中变量是1，由15=Len(xstr)开始的，每循环一次减1，……；此程序段的最后输出的是字符串s1的反向输出。
转载请注明原文地址:https://www.kaotiyun.com/show/NK2p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)