以下程序：PublicSubSwap1(ByValxAsInteger,ByValyAsInteger)DimtAsIntegert=x:x=y:y=tEndSubPublicSubSwap2(xAsInteger,yAsInteger)DimtAsIntegert=x:x=y:y=tEndSubPrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=10:b=20Swap1a,bPrint"A1=";a,"B1=";ba=10:b=20Swap2a,bPr

题目

以下程序：

PublicSubSwap1(ByValxAsInteger,ByValyAsInteger)

DimtAsInteger

t=x:x=y:y=t

EndSub

PublicSubSwap2(xAsInteger,yAsInteger)

DimtAsInteger

t=x:x=y:y=t

EndSub

PrivateSubCommand1_Click()

DimaAsInteger,bAsInteger

a=10:b=20

Swap1a,b

Print"A1=";a,"B1=";b

a=10:b=20

Swap2a,b

Print"A2=";a,"B2=";b

EndSub

当单击命令按钮后，窗体上输出的结果是( )

A.A1=20B1=10A2=10B2=20

B.A1=10B1=20A2=20B2=10

C.A1=10B1=20A2=10B2=10

D.A1=20B1=20A2=20B2=10

相似考题

1.（ 27 ）要想在过程 Proc 调用后返回形参 x 和 Y 的变化结果，下列定义语句中正确的是A ） Sub Proc （ x as Integer,y as Integer ）B ） Sub Proc （ ByVal x as Integer, y as Integer ）C ） Sub Proc （ x as Integer,Byval y as Integer ）D ） Sub Proc （ Byval x as Integer, Byval y as Integer ）

2.要想在过程Proc调用后返回形参x和y的变化结果，下列定义语句中正确的是______。A．Sub Proc(x as Integer, y as Integer)B．Sub Proc(By Val x as Integer, y as Integer)C．Sub Proc(x as Integer, By Val y as Integer)D．Sub Proc(By Val x as Integer, By Val y as Integer)

3.单击一次窗体之后，下列程序代码的执行结果为______。 Private Sub Command1_ Click() Dim x As Integer, y As Integer, z As Integer x = 1: y = 2: z = 3 Call fun1 (x, y, z) Print x; y; z Call fun2(x, y, z) Print x; y; z End Sub Private Sub fun1(x As Integer, y As Integer, z As Integer) x = 10 * z y=z*z+ x z=x+ y+ z End Sub Private Sub fun2 (ByVal x As Integer, ByVal y As Integer, ByVal z As Integer) x=10*z y=z*z+ x z=x+ y +z End SubA．1 2 3 30 39 72B．1 2 3 1 2 3C．30 39 72 1 2 3D．30 39 72 30 39 72

4.以下程序：PublicSubSwap1(xAsInteger,ByValyAsInteger)DimtAsIntegert=x:x=y:y=tEndSubPublicSubSwap2(xAsInteger,yAsInteger)DimtAsIntegert=x:x=y:y=tEndSubPrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=10:b=20Swap1a,bPrint"A1=";a,"B1=";ba=10:b=20Swap2a,bPrint"A2=";a,"B2=";bEndSub当单击命令按钮后，窗体上输出的结果是( )A.A1=20B1=10A2=10B2=20B.A1=10B1=20A2=20B2=10C.A1=10B1=20A2=10B2=10D.A1=20B1=20A2=20B2=10

更多“以下程序:PublicSubSwap1(ByValxAsInteger,ByValyAsInteger)DimtAsIntegert=x:x=y:y=tEndS ”相关问题

  • 第1题：

    设有如下程序：

    Prirate Sub Form_Click()

    Dim a As Integer,b AS Integer

    a=20:b=50

    p1 a,b

    p2 a,b

    p3 a,b

    Print"a="；a,"b=";b

    End Sub

    Sub p1(x As Integeh By Val y As Integer)

    x=x+10

    y=y+20

    End Sub

    Sub p2(ByVal x As Integer,y As Integer)

    x=x+10

    y=y+20

    End Sub

    Sub p3 (ByVal x As Integer,ByVal y As Integer)

    x=x+10

    y=y+20

    End Sub

    该程序运行后，单击窗体，则在窗体上显示的内容是：a= ______ 和b= _____。


    正确答案：30 70
    30 70

  • 第2题：

    在VB.NET中,以下正确的过程定义形式是（）。

    A．Sub proc(ByVal x as Integer;ByValy as Integer)

    B．Sub proc(ByVal x as Integer,ByValy as Integer)

    C．Sub proc(x as Integer;y as Integer);

    D．Sub proc(x,y as Integer)


    B

  • 第3题：

    2、在VB.NET中,以下正确的函数定义形式是（）。

    A．Function fun(ByVal x as Integer;ByValy as Integer)

    B．Function fun(ByVal x as Integer,ByValy as Integer)

    C．Function fun(x as Integer;y as Integer);

    D．Function fun(x,y as Integer)


    Function fun(ByVal x as Integer,ByValy as Integer)

  • 第4题：

    要想在过程Proc调用后返回形参x和Y的变化结果，下列定义语句中正确的是（ ）。【考点5过程调用与参数传递】

    A.Sub Proc（x as Integer，Y as Integer）

    B.Sub Proc（ByVal x as Integer，Y as Integer）

    C.Sub Proc（x as Integer，ByVal Y as Integer）

    D.Sub Proc（ByVal x as Integer，ByVal Y as Integer）


    正确答案：A
    本题考查VBA中参数传递的知识。在VBA的过程调用时，参数有两种传递方式：传址传递和传值传递。如果在过程声明时形参用ByVal声明，说明此参数为传值调用；若用ByRef声明，说明此参数为传址调用：若没有说明传递类型，则默认为传址传递，即形参的结果会传递给实参。

  • 第5题：

    1、在VB.NET中,以下正确的过程定义形式是（）。

    A．Sub proc(ByVal x as Integer;ByValy as Integer)

    B．Sub proc(ByVal x as Integer,ByValy as Integer)

    C．Sub proc(x as Integer;y as Integer);

    D．Sub proc(x,y as Integer)


    Sub proc(ByVal x as Integer,ByValy as Integer)

相关内容