niusouti.com

在窗体中添加一个命令按钮,并编写如下程序:Private Sub Command1_ Click() x=1: y=2: z=3 x=y: y=z: z=xEnd Sub程序执行后,输出的结果是______。A.3B.0C.2D.1

题目

在窗体中添加一个命令按钮,并编写如下程序:Private Sub Command1_ Click() x=1: y=2: z=3 x=y: y=z: z=xEnd Sub程序执行后,输出的结果是______。

A.3

B.0

C.2

D.1


相似考题
参考答案和解析
正确答案:C
解析:变量中的数据为最后一次赋的值。
更多“在窗体中添加一个命令按钮,并编写如下程序:Private Sub Command1_ Click()x=1: y=2: z=3x=y: y=z ”相关问题
  • 第1题:

    在窗体中添加一个名称为Command1的命令按钮和一个名称为text1的文本框,然后编写如下程序; ( ) Private Sub Commandl_Click() Dim x,y,z As Integer x=5:y=7:z=O Text1.Text="" Call Pl(x,y,z) TextText=Str(z) End Sub Sub P1(ByVal a As Integer, ByVal b As Integer, c As Integer) c=a+b End Sub

    A.0

    B.12

    C.Str(z)

    D.没有显示


    正确答案:B
    解析:本题主要是对调用Sub过程的考查。调用过程P1时,实参x,y,z的值分别传递到形参a,b,c。执行过程内的语句得 z=x+y即z=5+7。题中a,b参数是按值传送的,参数c是按址传送的,传值调用不影响实际参数,传址调用影响实际参数。故执行过程内的语句后z的值变为12而不是0。z是整型变量,可以使用Str函数将其转换为字符类型,然后赋给文本框的Text属性,使其在文本框中显示。

  • 第2题:

    在窗体中添加一个命令按钮,并编写如下程序: Private Sub Command1_CliCk() X=1∶Y=2∶Z=3 X=Y∶Y=Z∶Z=X Print Z End Sub 程序执行后,输出的结果是______。

    A.3

    B.0

    C.2

    D.1


    正确答案:C

  • 第3题:

    在窗体中添加一个名称为Command1的命令按钮,然后编写如下程序:Functionfun(xAsInteger)Staticzy=y+1:z=z+1fun=x+y+zEndFunctionPrivateSubCommand1_Click()DimxAsIntegerx=1Fori=1To2Printfun(x)NextiEndSub程序运行后,如果单击命令按钮,窗体中显示的内容是( )

    A、33

    B.34

    C.3

    D.3


    正确答案:D

  • 第4题:

    在窗体上画一个命令按钮,然后编写如下代码。运行程序后,单击命令按钮,依次在输人对话框中输入2,7,5,3,8,5,12,6,12,在窗体上输出的结果是______。 Private Sub Command1 Click() z=5 Do Until z<>5 x=InputBox<“请输入x值”) x=Val(x) y=InputBox(“请输入y值”) y=Val(y) z=InputBox(“请输入z值”) z=Val(z) y=x+y+2 * z Loop Print y End Sub

    A.19

    B.21

    C.42

    D.19


    正确答案:C
    解析:InputBox()函数的功能是在一个对话框中提示用户输入信息,在确认(即单击“确定”按钮)之后将输入的内容以字符串形式返回,在程序中使用InputBox()函数分别为x、y和z变量赋值,当变量2的值不等于5的时候,结束循环,将得到的x、y、2的值进行运算(x+y+2z),在窗体上打印(Print)输出运算结果。程序运行后,前两次输入的2值都是5,所以程序不会跳出循环,当第3次输入时,得到的x、y、z值分别为12、6、12,此时的2值不为5,程序结束循环并输出运算结果:12+6+2*12=42。

  • 第5题:

    在窗体中添加一个名称为Command1命令按钮和一个名称为text1的文本框,然后编写如下程序:

    PrivateSubCommand1_Click()

    Dimx,y,zAsInteger

    x=5:y=7:z=0

    Text1.Text=""

    Callp1(x,y,z)

    Text1.Text=Str(z)

    EndSub

    Subp1(ByValaAsInteger,ByValbAsInteger,cAsInteger)

    c=a+b

    EndSub

    程序运行后,如果单击命令按钮,文本框中显示的是( )

    A、0

    B.12

    C.Str(z)

    D.没有显示


    正确答案:B