itgle.com

单击窗体时，下列程序的执行结果是Private Sub Invert（ByVal xstr As String, ystr As String）Dim tempstr As StringDim I As IntegerI=Len（xstr）Do While I >=1tempstr=tempstr + Mid（xstr, I, 1）I=I - 1Loopystr=tempstrEnd SubPrivate Sub Form_Click（）Dim s1 As String, s2 As Strings1=

题目

单击窗体时，下列程序的执行结果是

Private Sub Invert（ByVal xstr As String, ystr As String）

Dim tempstr As String

Dim I As Integer

I=Len（xstr）

Do While I >=1

tempstr=tempstr + Mid（xstr, I, 1）

I=I - 1

Loop

ystr=tempstr

End Sub

Private Sub Form_Click（）

Dim s1 As String, s2 As String

s1= "abcdef"

Invert s1, s2

Print s2

End Sub（ ）。

A．abcdef

B．afbecd

C．fedcba

D．defabc

相似考题

1.下列程序的执行结果为Private Sub Command1_Click（）Dim s1 As String, s2 As Strings1= "abcd"Call Transfer（s1, s2）Print s2End SubPrivate Sub Transfer （ByVal xstr As String, ystr As String）Dim tempstr As Stringi=Len（xstr）Do While i >=1tempstr=tempstr + Mid（xstr, i, 1）i=i - 1Loopystr=te mpstrEnd Sub（ ）。A．dcbaB．abdcC．abcdD．dabc

2.执行下列程序后，鼠标单击窗体，输出结果为A．DownUpCliekB．CliekDownUpC．DownCliekUpD．UpDownClick

3.单击窗体时，下列程序的执行结果是 Private Sub Invert(By Val xstr As String，ystr As String) Dim tempstr AS String Dim I AS Integer I=Len(xstr) Do While I＞=1 tempstr=tempstr + Mid(xstr，I，1) I=I - 1 Loop ystr=tempStr End Sub Private Sub Form_Click( ) Dim s1 As String，s2 As String S1="abcdef" Invert S1，S2 Print S2 End SubA．abcdefB．afbecdC．fedcbaD．defabc

4.阅读以下程序：Private Sub Form_click()Dim k, n, m As integern = 20m = 1k = 1Do While k ＜= nm=m+2k = k + 1LoopPrint mEnd Sub单击窗体程序的执行结果是【 】。

更多“单击窗体时,下列程序的执行结果是 PrivateSubInvert(ByValxstrAsString,ystrAsString) ”相关问题

  • 第1题：

    下列程序的执行结果为 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


    正确答案：A
    解析：被调过程Invert的参数xstr，ystr从主调函数中收到实参s1，s2传来的值"abcdef"，过程Invert开始声明了两个变量，都是String型的：xstr，ystr。2=Len(xstr)以上语句的功能是：i的值就是xstr的长度，此题为6。程序代码执行DoWhile．．．Loop的循环语句。循环体为tempstr=tempstr+Mid(xslr，i,1)，其中变量是1，由15=Len(xstr)开始的，每循环一次减1，……；此程序段的最后输出的是字符串s1的反向输出。

  • 第2题：

    下列程序的执行结果为 Private Sub Command1_Click() Dim s1 As String，s2 As String S1；="abcdef" Call Invert(s1，s2) Print s2 End Sub Private Sub Invert (ByVal xstr As String，ystr As String) Dim tempstr As String 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


    正确答案：A
    解析：被调过程Invert的参数xstr，ystr从主调函数中收到实参s1，s2传来的值“abcdef”，过程Invert开始声明了两个变量，都是String型的：xstr，ystr。I=Len(xstr)以上语句的功能是：i的值就是xstr的长度，此题为6。程序代码执行DoWhile…Loop的循环语句。循环体为tempstr=tempstr+Mid(xstr，i，1)，其中变量是I，由I=Len(xstr)开始的，每循环一次减1，……；此程序段的最后输出的是字符串s1的反向输出，所以正确答案是选项C.

  • 第3题：

    下列程序的执行结果为 Private Sub Commandl_Click() Dim s1 As String ,s2 As String s1= "abcd" Call Transfer(sl，s2) Print s2 End Sub Private Sub Transfer (ByVal xstr As String，ystr As String) Dim tempstr As String ystr=tempstr End Sub

    A．dcba

    B．abdc

    C．abcd

    D．dabc


    正确答案：A
    解析：主调函数最终输出值是s2值，这就得调用函数过程Transfer函数。被调过程Transfer的参数xstr，ystr从主调函数中收到实参s1，s2传来的值"abcd"，过程Transfer开始声明了两个String型的变量，xstr、ystr。i=Len(xstr)语句的功能是：i的值就是xstr的长度，此题为4。程序代码执行DoWhile…Loop的循环语句。循环体为tempstr=tempstr+Mid(xstr，i，l)，其中变量是I，由I=Len(xstr)开始的，每循环一次减1。此程序的最后输出的是字符串s1的反向输出。

  • 第4题：

    程序执行时，单击窗体后输出结果是

    A.8 7 6

    B.7 6 5

    C.7 6 5 4

    D.8 7 6 5


    正确答案：B
    【答案】B【解析】本题考查While…wend循环语句。若n大于5，反复执行n=n-1的操作，之后打印输出。本题中n初始值为8，满足n大于5的条件，进入第一次循环，执行n=8-1=7，打印输出7；n为7，满足循环条件，进入第二次循环，执行n=7-1=6，打印输出6；n为6，满足循环条件，进入第三次循环，执行n=6-1=5，打印输出5；n为5不再满足循环条件，跳出循环。因此输出结果为765。

  • 第5题：

    执行下面的程序，单击窗体后窗体消息框内显示结果是( )。 PRIVATE SUB FORM_CLICK() DIM STR AS STRING, K AS INTEGER STR="AB" FOR K = LEN(STR) TO 1 STEP -1 STR=STR&CHR(ASC(MID(STR, K, 1)) +K) NEXT K MSGBOX STR END SUB

    A．ABCE

    B．ABCD

    C．ABDB

    D．ABFB


    正确答案：C
    解析：对字符串变量STR(初始值为"AB")进行字符追加，分析其中的Len、Chr和Mid三个字符串处理函数后，可以判断出追加的字符是D和B，故答案C正确。

相关内容