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

题目

下列程序的执行结果为

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.下列程序段运行的结果为 public class Test{ static void print(String s，int i){ System．out．println("String："+s+"，int："+i)； } static void print(int i，String s){ System．out．println("int："+i+"，String："+s)； } public static void main(String[]args){ print(99，"Int first")； } }A．String:String first,int:11B．int:11，String:Int firstC．String:String first,int99D．int:99,String:Int first

2.假设X的值是5，则执行以下语句时，可得到的输出结果是ABCDEF的Select Case语句是 ( )A．Select Case X Case 10 To 1 Print“ABCDEF” End SelectB．Select Case X Case Is＞15，Is＜5 Print"ABCDEF" End SelectC．Selecl Case K Case Is＞5，1，3，To 10 Print"ABCDEF" End SelectD．Select Case X Case 1，3，Is＞5 Print"ABCDEF" End Select

3.下列程序段运行的结果为 public class Test{ static void print(String s,int i){ System.out.println("String:"+s+",int:"+i)； } static void print(int i, String s){ System.out.println("int:"+i+",String:"+s); } public static void main(String [] args){ print(99,"Int first"); } }A．String:Stringfirst,int:11B．int:11,String:Int firstC．String:String first,int：99D．int:99，String:int first

4.下列程序的执行结果为 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 FunctionA.abcdefB.afbecdC.fedcbaD.defabc

更多“下列程序的执行结果为Private Sub Command1_Click()Dim FirStr As StringFirSt="abcdef"Print Pa ”相关问题

  • 第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题：

    下列程序的执行结果为 Ptivate Sub Commandl_Click() Dim FirStr As String FirStr="abcdef" Print Pct (FirStr) End Sub Private Function Pct(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，l) + Mid(xStr，strLen - i+i ，1) i=i + 1 Loop Pct=tempStr End FunCtion

    A．abcdef

    B．afbecd

    C．fedcba

    D．defabc


    正确答案：B
    解析：主调函数最终输出值是Pct(FirStr)过程的返回值，这就得调用函数过程Pct。被调过程Pct的参数xStr从主调函数中收到实参FirStr传来的值“abcdef”，过程Pct开始声明了两个变量，一个是String型的tempStr，一个是Integer型的strLen。语句tempStr=""和strLen=Len(xStr)的功能是，为变量tempStr赋空值，变量strLen的值就是xstr的长度，此题为6。程序执行DoWhile…Loop的循环语句的过程如下：第一次循环，I=l，I=3成立，执行语句tempStr+Mid(xStr，i，1)+Mid(xStr，strLen-i+1，1)；第二次循环，1=2，I=3成立，继续执行循环体，tempStr=“afbe”；第三次循环，I=3，I=3成立，继续执行循环体，tempStr=“afbecd”；第四次循环，I=4，I=3不成立，则跳出循环体，执行语句Pct=tempStr。所以最终Pct(FirStr)="afbecd"。

  • 第3题：

    2、执行如下语句后，输出的结果为： x="abcdef" print（x[2:4])

    A．bc

    B．cd

    C．de

    D．ab


    0

  • 第4题：

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

  • 第5题：

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

相关内容