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

题目

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

A．abcdef

B．afbecd

C．fedcba

D．defabc

相似考题

1.单击命令按钮时，下列程序的执行结果为Private Sub Command1_Click（）Dim a As Integer, b As Integer, c As Integera=2: b=3: c=4Print P2（c, b, A．End SubPrivate Function P1（x As Integer, y As Integer, z As Integer）P1=2 * x + y + 3 * zEnd FunctionPrivate Function P2（x As Integer, y As Integer, z As Integer）P2=P1（z, x, y） + xEnd Function （ ）。A．21B．19C．17D．34

2.单击一次命令按钮，下列程序代码的执行结果为( )。 Private Sub Commandl_Click() Dima As Integer,b As Integer，CASInteger a=2：b=3：c=4 PrintP2(c，b，A) End Sub PrivateFunctionPl(X As Integer,y As Intege；z As Integer) P1=2*x+y+3*Z End Function PrivaA．21B．19C．17D．34

3.有以下程序程序运行后的输出结果是( )A.AbCdEfB.ABCDEFC.aBcDeFD.abcdef

4.单击命令按钮时，下列程序的执行结果为 Private Sub Command1_Click() Dim a As Integer，b As Integer，c As Integer a=2：b=3：C=4 Print P2(c，b，A)End Sub Private Function P1(x As Integer，y As Integer，z As Integer) P1=2 * X + y + 3 * z End Function Private Function P2(x As Integer，y As Integer，z As Integer) P2=P1(z，x，y) + X End FunctionA．21B．19C．17D．34

更多“下列程序的执行结果为()。Ptivate Sub Command_Click()DimFirStr As StringFirStr="abcdef"PrintP ”相关问题

  • 第1题：

    有以下程序：

    程序运行后的输出结果是（ ）。

    A.Abcdef

    B.ABCDEF

    C.aBcDeF

    D.AbCdEf


    正确答案：D
    函数的含义是如果i的值能被2整除，以字符格式打印输出i+C的值，如果i的值不能被2整除，打印i+b的值。第一次i值为0，执行else语句打印字符‘A’，第二次i值为1，打印1+b的值即字符‘b符‘c’，依此类推选择D选项，第三次i值为2，打印字I.

  • 第2题：

    下列程序的执行结果为 Private Sub Comrnandl_Click( ) Dim p As Integer, q As Integer p=12：q=20 Call Value(p, q) Print p; q End Sub Private Sub Value(ByVal m As Integer, ByVal n As Integer) m=m * 2: n=n - 5 Print m; n End Sub

    A．20 12 20 15

    B．12 20 12 25

    C．24 15 12 20

    D．24 12 12 15


    正确答案：C
    解析：被调过程Value的两个参数m和n前面都有关键字“ByVal”修饰，即在主调过程调用此过程时，实参与形参之间是以传值方式传递信息的，而当实参与形参以传值方式相结合时，形参的改变并没有影响到实参，单单就这一点来说，我们可知，当程序代码执行主调过程中的PrimP；q语句时，p和q的值应不变，还是12，20，这样就能够排除选项A)和选项B)了。当主调过程调用被调过程时，把实参p，q的值分别传给形参m和n，这就是说此时形参m值为12，n值为20，执行被调过程中的m=m*2：n=n-5语句后，m值为24，n值为15，所以Printm；n后，程序输出的结果为24和15。最后程序输出的结果如选项C)所示。

  • 第3题：

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

    A．bc

    B．cd

    C．de

    D．ab


    0

  • 第4题：

    若输入“abcdef”、“abdef”，以下程序的输出结果为（ ）

    #include

    A)1

    B)0

    C)’abcdeff’

    D)’abdef’


    正确答案：A
    本题考查两个知识点：①字符串比较函数strcmp(sl，s2)，若s1>s2，则返回1；若s1=s2，则返回0；若s1

  • 第5题：

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

相关内容