单击命令按钮时，下列程序代码的执行结果为 ______。 Public Sub Procl(n As Integer，ByVal m As Integer) n=n Mod 10 m=m/10 End Sub Private Sub Command1_Click() Dim x As Integer，y As Integer x=12: y=34 Call Procl(x，y) Print x；y End SubA．12 34B．2 34C．2 3D．12 3

题目

单击命令按钮时，下列程序代码的执行结果为 ______。 Public Sub Procl(n As Integer，ByVal m As Integer) n=n Mod 10 m=m/10 End Sub Private Sub Command1_Click() Dim x As Integer，y As Integer x=12: y=34 Call Procl(x，y) Print x；y End Sub

A．12 34

B．2 34

C．2 3

D．12 3

相似考题

1.单击命令按钮时，下列程序代码的执行结果为_________。 Public Sub Procl(n As Integer，By Val m As Integer) n=n Mod i() m=m/10 End Sub Private Sub Command1 CliCk() Dim x As Integer，y As Integer x=12：y=34 Call Procl(x，y) Print x；y End SubA．12 34B．2 34C．2 3D．12 3

2.单击命令按钮时，下列程序代码的执行结果为______。Public Sub Procl (n As Integer，ByVal m As Integer) n= n Mod 10 m=m/10End SubPrivate Sub Conunand1_Click() Dim x As Integer，y As Integer x=12：y=34 Call Procl(x，y) Print x；yEnd SubA．12 34B．2 34C．2 3D．12 3

3.单击命令按钮时，下列程序代码的执行结果为 Public Sub Procl(n As Integer,ByVal m As integer) n=n Mod 10 m＝m\10 End sub Private Sub Commandl_Click() Dim x AS Integer,y AS Integer x=12:y=24 Call Procl(x,y) Print x;y End subA．12 24B．2 24C．2 3D．12 2

4.单击命令按钮时，下列程序代码的运行结果为 Private Sub Command1_Click() print MyFunc(20，18) End Sub Public Function MyFunc (m As Integer，n As Integer)As Integer Do While m <>n Do While m ＞ n：m=m - n：Loop Do While m ＜ n：n=n - m：Loop Loop MyFunc=m End FunCtionA．0B．2C．4D．6

更多“单击命令按钮时,下列程序代码的执行结果为 ______。Public Sub Procl(n As Integer,ByVal m As In ”相关问题

  • 第1题：

    单击命令按钮时，下列程序代码的执行结果为______ 。Public Function MyFune(m As Integer，n As Integer) As Integer Do While m＜＞n Do While m＞n m=m-n Loop Do While m＜n n=n -m Loop Loop MyFunc=mEnd FunctionPrivate Sub Command1_Click() Print MyFunc(24, 18)End Sub

    A． 2

    B．4

    C．6

    D．8


    正确答案：C

  • 第2题：

    单击命令按钮时，下列程序代码的执行结果为( )。 Private Sub Procl(nAs Integer,ByValmASInteger) n=nMod 10 m=m\10 End Sub PrivateSubCommandl_Click() Dimx As Integer Dimy As Integer x=12 y=34 CallProcl(x，y) Printx；y End Sub

    A．12 34

    B．2 34

    C．2 3

    D．12 3


    正确答案：A

  • 第3题：

    单击命令按钮时，下列程序代码的执行结果为 Private Sub Command1_Click( ) Print MyFunc(24，18) End Sub Public Function MyFunc(m As Integer，n As Integer)As Integer Do While m ◇ n Do While m>n：m=m—n：Loop DO While m＜n：n=n-m：Loop Loop My Func=m End Function

    A．2

    B．4

    C．6

    D．8


    正确答案：C
    解析：根据Myfune的定义，当m与n不相等时执行D。循环，此时如果m大于n，则执行m=m-n的Do循环。据此，MyFune(24，18)的值应该为24减去18。

  • 第4题：

    单击命令按钮时，下列程序代码的执行结果为______。 Public Sub Procl(n As Integer,ByVal m As Integer) n=n Mod 10 m=m/10 End Sub Private Sub Command1_Click() Dim x As Integer,y As Integer x=12:y=34 Call Procl(x,y) Print x;y End Sub

    A．12 34

    B．2 34

    C．2 3

    D．12 3


    正确答案：B
    解析：过程中传递参数的方式有两种：
    一种是按地址传递参数，这种形式使过程用变量的内存地址去访问实际变量的内容，如果在过程中改变了该变量的值，则是真正改变了这一变量的值，这种形式是传递参数的缺省方式。
    另一种是按值传递参数，这种形式只是传递变量的副本，如果在过程中改变该变量副本的值，并不能真正改变该变量本身的值。
    解题思路：观察程序段，过程Procl的第一个参数n是按地址传递参数，第二个参数m是按值传递参数，所以调用过程Procl后，变量x的值改变，而变量y的值不变。
    由程序段可知，x=12 Mod 10=2，y=34
    最终的输出结果是：2 34。

  • 第5题：

    单击命令按钮时，下列程序代码的执行结果为______。 Public Sub Procl(n As Integer, By Val m As Integer) n=n Mod 10 m=m/10 End Sub Private Sub Command1_Click() Dim x As Integer,y As Integer x=12:y=34 Call Procl(x, y) Print x; Y End Sub

    A．12 34

    B．2 34

    C．2 3

    D．12 3


    正确答案：B
    解析：过程中传递参数的方式有两种：一种是按地址传递参数，这种形式使过程用变量的内存地址去访问实际变量的内容，如果在过程中改变了该变量的值，则是真正改变了这一变量的值，这种形式是传递参数的缺省方式。另一种是按值传递参数，这种形式只是传递变量的副本，如果在过程中改变该变量副本的值，并不能真正改变该变量本身的值。解题思路：观察程序段，过程Procl的第一个参数n是按地址传递参数，第二个参数m是按值传递参数，所以调用过程Procl后，变量x的值改变，而变量y的值不变。由程序段可知，x=12Mod10=2，y=34最终的输出结果是：234。

相关内容