下列程序的执行结果为 Private Sub Command1_Click Dim FirStr As String FirSt="abcdef" Print Pat(FirStr． End Sub Private Function Pat(xStr As String．As String Dim tempStr As String, strLen As Integer tempStr="" strLen=Len(xStr． i=1 Do While i<=Len(xStr．-3 tempStr=temp

题目

下列程序的执行结果为 Private Sub Command1_Click Dim FirStr As String FirSt="abcdef" Print Pat(FirStr． End Sub Private Function Pat(xStr As String．As String Dim tempStr As String, strLen As Integer tempStr="" strLen=Len(xStr． i=1 Do While i<=Len(xStr．-3 tempStr=tempStr+Mid(xStr, i, 1)+Mid(xStr, strLen -i+1, 1) i=i+1 Loop Pat=tempStr End Function

A.abcdef

B.afbecd

C.fedcba

D.defabc

相似考题

1.（ 30 ）下面程序的输出结果是Private Sub Command1_Click()ch$= ” ABCDEF ”proc chPrint chEnd SubPrivate Sub proc(ch As String)S= ””For k=Len(ch) To 1 Step-1s=s&Mid(ch,k,1)Next kch=sEnd SubA ） ABCDEFB ） FEDCBAC ） AD ） F

2.下列程序的执行结果为Private Sub Command1_Click()Dim FirStr As StringFirSt="abcdef"Print Pat(FirStr)End SubPrivate Function Pat(xStr As String) As StringDim tempStr As String，strLen As IntegertempStr=""strLen=Len(xStr)i=1Do While i＜=Len(xStr)-3tempStr=tempStr+Mid(xStr,i,1)+Mid(xStr，strLen-i+1,1)i=i+1LoopPat=tempStrEnd FunctionA．abcdefB．afbecdC．fedcbaD．defabc

3.下列程序的执行结果为( )。 Ptivate Sub Command_Click() DimFirStr As String FirStr="abcdef" PrintPat(FirSB) End Sub PrivateFunctionPat(xStr As String)As String DimtempStr As String，strLen As Integer tempStr="" strLen=Len(xStr) i=1 DoWA．abcdefB．afbecdC．fedcbaD．defabc

4.执行下列程序，显示的结果是______。first="china"second=""a=LEN(first)i=aDO WHILE i＞=1second=second+SUBSTR(first,i,1)i=i-1ENDDO?second

更多“下列程序的执行结果为 PrivateSubCommand1_Click DimFirStrAsString FirSt="abcdef" PrintPat(Fi ”相关问题

  • 第1题：

    下列程序的执行结果为

    Private Sub Command1_Click()

    Dim FirStr As String

    FirSt="abcdef"

    Print Pat(FirStr)

    End Sub

    Private Function Pat(xStr As String) As String

    Dim tempStr As String, strLen As Integer

    tempStr=""

    strLen=Len(xStr)

    i=1

    Do While i<=Len(xStr) -3

    tempStr=tempStr+Mid(xStr, i, 1)+Mid(xStr, strLen -i+1, 1)

    i=i+1

    Loop

    Pat=tempStr

    End Function

    A．abcdef

    B．afbecd

    C．fedcba

    D．defabc


    正确答案：B
    解析：主调函数最终输出值是Pat(FirStr) 过程的返回值,这就得调用函数过程Pat。
    被调过程Pat的参数xStr从主调函数中收到实参FirStr传来的值"abcdef",过程Pat开始声明了两个变量,一个是String型的tempStr,一个是Integer型的strLen。语句 tempStr = " "。
    strLen = Len(xStr)以上两条语句的功能是:为变量tempStr赋空值,变量strLen的值就是xstr的长度,此题为6。程序代码执行Do While匧oop的循环语句:
    第1次循环结束后,tempStr="af";
    第2次循环,i=2,i<=3成立,继续执行循环体,tempStr="afbe";
    第3次循环,i=3,i<=3成立,继续执行循环体,tempStr="afbecd";
    第4次循环,i=4,i<=3不成立,则跳出循环体,执行语句Pat = tempStr。所以最终Pat(FirStr)="afbecd"。

  • 第2题：

    下列程序的执行结果为 Private Sub Command1_Click() Dim FirStr As String FtrSt="abcdef" Print Pat(FirStr) End Sub Private Function Pat(xStr As String)As String Dim tempStr As String，strLen As Integer tempStr="" strLen=Len(xStr) i=1 Do While i＜=Len(xStr)-3 tempStr=tempStr+Mid(xStr,i,1)+Mid(xStr，strLen -i+1,1) i=i+1 Loop Pat=tempStr End Function

    A．abcdef

    B．afbecd

    C．fedcba

    D．defabc


    正确答案：B
    解析：主调函数最终输出值是Pat(FirStr)过程的返回值，这就需要调用函数过程Pat。
      被调过程Pat的参数xStr从主调函数中收到实参FirStr传来的值"abcdef"，过程Pat开始声明了两个变量：一个是String型的tempStr；一个是Integer型的strLen。语句ternpStr=""。
      strLen=Len(xStr)以上两条语句的功能是：为变量tempstr赋空值，变量strkn的值就是xstr的长度，此题为6。程序代码执行Do While…Loop的循环语句：
      第1次循环结束后，tempStr="af"；
      第2次循环，i=2，i=3成立，继续执行循环体，tempStr="afbe"；
      第3次循环，i=3，i=3成立，继续执行循环体，tempStr="afbecd"；
      第4次循环，i=4，i=3不成立，则跳出循环体，执行语句Pat=tempStr。所以最终Pat(FirStr)=“afbecd”。

  • 第3题：

    下列程序的执行结果为 Private Sub Command1_Click( ) Dim FirStr As String FirSt=”abcdef， Print Pat(FirStr) End Sub Private Function Pat(xStr As String)As String Dim TempStr As String，strLen As Integer tempStr=”” strLen=Len(xStr) i=1 Do While i＜=Len(xStr)-3 tempStr=tempStr+Mid(xStr，i，1)+Mid(xStr，strLen-i+1，1) i=i+1 Loop Pat=tempStr End Function

    A．abcdef

    B．aPDecd

    C．fedcba

    D．defabc


    正确答案：B
    解析：主调函数是最终输出值是Pat(FirStr)过程的返回值，这就是调用函数过程Pat。被调过程Pat的参数xStr从主调函数中收到实参FirStr传来的值“abcdef”，过程Pat开始声明了两个变量，一个是String型的tempStr，一个是Integer型的strLen。语句tempStr=“”strLen=Len(xStr)的功能是：为变量tempStr赋空值，变量strLen的值就是xStr的长度，此题为6。程序代码执行DoWhile…Loop的循环语句。第一次循环，i=1，i=3成立，执行语句tempStr+Mid(xStr，i1)+Mid(xStr，strLen-i+1，1)；mid函数一般调用格式：Mid(字符串，p，n)其功能就是从第p个字符开始，向后截取n个字符，第一次循环结束后，tempStr=“af”；第二次循环，i=2，i=3成立，继续执行循环体，tempStr=“afbe”；第三次循环，i=3，i=3成立，继续执行循环体，tempStr=“afbecd”第四次循环，i=4，i=4不成立，则跳出循环体，执行语句Pat=tempStr。所以最终Pat(FirStr)=“afbecd”，即最后程序执行结果如选项B所示。

  • 第4题：

    单击命令按钮时，下列程序段的执行结果为( )。 Private Sub Command1_Click() Dim FirstStr As String FirstStr="abcdef" Print PickMid(FirstStr) End Sub Private Function PickMid(xStr As String)As String Dim tempStr As String,strLen As Integer TempStr=" " strLen=Len(xStr) i=1 Do While i＜=strLen/2 tempStr=tempStr+Mid(xStr,i,1)+Mid(xStr,strLen-i+1,1) i=i+1 Loop PickMid=tempStr End Funcfion

    A．abcdef

    B．fed

    C．fedcba

    D．defabc


    正确答案：B

  • 第5题：

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

相关内容