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

题目

下列程序的执行结果为

Private Sub Command1_Click()

Dim s1 As String, s2 As String

s1= "abcd"

Call Transfer(s1, s2)

Print s2

End Sub

Private Sub Transfer (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=te mpstr

End Sub( )。

A.dcba

B.abdc

C.abcd

D.dabc


相似考题
更多“下列程序的执行结果为 PrivateSubCommand1_Click() Dims1AsString,s2AsString s1="abcd" ”相关问题
  • 第1题:

    运行下列程序:Private Sub Command1_Click( )Dim s1 As String * 1Dim s2 As Strings1 = &quo

    运行下列程序:

    Private Sub Command1_Click( )

    Dim s1 As String * 1

    Dim s2 As String

    s1 = "a"

    For i = Asc(s1) To Asc(s1) + 4

    s2 = s2 & Chr(i)

    Next i

    Print s2

    End Sub

    单击Command1命令按钮后,则在窗体上显示的结果是( )。

    A.a

    B.abcde

    C.aaaa

    D.s2


    正确答案:B

  • 第2题:

    下列程序的执行结果为 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的反向输出。

  • 第3题:

    假设有定义 char s1[20]="1234567" ,s2[20]={"ABCD"};,则执行strcpy(s1,s2)后,s1的内容为“ABCD”


    A A。【解析】C语言中strlen函数的功能是返回字符串的长度,其中\0是一个转义字符,它占存储空间,但不计入字符串的长度。所以选项A正确。

  • 第4题:

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

  • 第5题:

    在下面程序的横线处填上适当的内容,使程序执行后的输出结果为ABCD。 include using nam

    在下面程序的横线处填上适当的内容,使程序执行后的输出结果为ABCD。

    include<iostream>

    using namespace std;

    class A

    {

    public: A(){cout<<'A';}

    };

    class B:【 】

    {

    public:B(){cout<<'B';)

    };

    class C:【 】

    {

    public;C(){cout<<'C';}

    };

    class D:public B,public C

    {

    public:D(){cout<<'D';}

    };

    void main(){D obi;}


    正确答案:virtual public A virtual public A
    virtual public A virtual public A