在公用过程或是自定义函数中，我们经常会在定义的参数前，看到关键字 ByRef 或 ByVal ，它们起什么作用呢？它们又有什么区别呢？我们先看一段代码。

 

过程实例代码：

Sub CallByRef(ByRef Y as Integer )  ‘代码中Y 及为输入的参数

    Y = 2

End Sub

 

当我们调用这个过程时，可以用两种方式来传送参数，即：传址方式（也称：引用方式）和传值方式。如果以传址方式传送，加入关键字ByRef ；如果以传值方式传送，则加上关键字ByVal。

 

ByRef 表示该参数按地址传递。 ByRef 是 Visual Basic 的缺省选项。直白的说这传递方式所传递的是参数的地址，因此当两个变量指向同一个内存地址时，其中一个变量改变，别一个变量也会随之变化。

见如下实例：

'**************************************

'用“传址”方式传递参数

'************************************** 

Private Sub Command0_Click()

  Dim X As Integer

  X = 1

  MsgBox "调用程序之前X值是：" & X

  Call CallByRef(X)

  MsgBox "调用程序之后X值是：" & X

End Sub

'默认方式是传址方式传递参数，可以不加 ByRef 关键字

Sub CallByRef(ByRef Y As Integer)

    Y = Text2

End Sub

 

       ByVal 表示该参数按值传递，可选。如果不希望调用的程序修改原调用端的变量值，可以加入该关键字，这保证了该变量有自己独立内存区域或者说空间，而不会受到调用端变量的影响。只会把传递的变量值重新复制一份给调用的程序，所以即使在程序内变更参数的值，也不会改变原调用端的参数值。

 

见如下实例：

 '**************************************

'用“传值”方式传递参数

'**************************************

Private Sub Command1_Click()

  Dim X As Integer

  X = 1

  MsgBox "调用程序之前X值是：" & X

  Call CallByVal(X)

  MsgBox "调用程序之后X值是：" & X

End Sub

'以传值方式传递参数，必须加上 ByVal 关键字

Sub CallByVal(ByVal Y As Integer)

    Y = Text2

End Sub

 

 

-----------------------------------------------------------------------------------------------------------------

演示实例及Word文稿：点击下载此附件