ByVal 传送参数内存的一个拷贝给被调用者。也就是说，栈中压入的直接就是所传的值。 ByRef 传送参数内存的实际地址给被调用者。也就是说，栈中压入的是实际内容的地址。被调用者可以直接更改该地址中的内容。

1、ByVal传值：一种将参数值而不是将地址传递给过程的方式，这就使过程访问到变量的复本。结果，过程不可改变变量的真正值。

2、ByRef传值：一种将参数地址而不是将值传递给过程的方式，这就使过程访问到实际的变量。结果，过程可改变变量的真正值。除非另作说明，否则按地址传递参数。

3、系统默认的是ByRef传值。

例子：

代码如下:

<SCRIPT LANGUAGE="vbScript">

dim a

a=0

document.write "a=0"

document.write "<br/>sub change(byref ar)<br/>"

change a

document.write a

a=0

document.write "<br/>sub change2(ByVal ar)<br/>"

change2 a

document.write a

a=0

document.write "<br/>sub change3( ar)<br/>"

change3 a

document.write a

a=0

document.write "<br/>function change4(byref ar)<br/>"

change4 a

document.write a

a=0

document.write "<br/>function change5(ByVal ar)<br/>"

change5 a

document.write a

a=0

document.write "<br/>function change6( ar)<br/>"

change6 a

document.write a

a=0

sub change(byref ar)

ar=111

end sub

sub change2(ByVal ar)

ar=222

end sub

sub change3( ar)

ar=333

end sub

function change4(byref ar)

ar=444

end function

function change5(ByVal ar)

ar=555

end function

function change6( ar)

ar=666

end function

</SCRIPT>

=======================

结果：

a=0

sub change(byref ar)

111

sub change2(ByVal ar)

0

sub change3( ar)

333

function change4(byref ar)

444

function change5(ByVal ar)

0

function change6( ar)

666

说明vbs默认是byRef，这点和VB一样， 按地址。

再给出一个小例子，大家运行看效果！

代码如下:

<%

Dim i,j,p,m

i = 10

j = 12

Response.Write i&"******"&j&"<br>"

Call Fun2 (i,j)

Response.Write i&"******"&j&"<br>"

i = 10

j = 12

Call Fun (i,j)

Response.Write i&"*******"&j&"<br>"

Function Fun2 (a,b)

a = 5

b = 6

Fun2 = 0

End Function

Function Fun (ByVal a,ByRef b)

a = 5

b = 6

Fun = 0

End Function

%>

通过上面的例子你可以发现：

1、ByVal传值没有改变全局变量的值。

2、ByRef传值改变了全局变量的值。

3、系统默认的是ByRef传值。

至于应该在什么时候使用吗？这就要看自己的实际情况了！

ByVal 传送参数内存的一个拷贝给被调用者。也就是说，栈中压入的直接就是所传的值。

ByRef 传送参数内存的实际地址给被调用者。也就是说，栈中压入的是实际内容的地址。被调用者可以直接更改该地址中的内容。

ByVal是传递值 源数据不会被修改

你可以把这个值当作自己的局部变量来使用

ByRef是传递地址 ， 源数据可能被修改

你对这个变量的操作将对你传入的那个变量产生影响，就像指针的感觉

vb6的说明

啥也不说了，接题：

代码如下:

Function Test(a)

a = a + 1

End Function

c = 1

'------------------------------------

'问题：

' 请说出分别调用下面四种方法的结果?

'------------------------------------

'方法一

Test c

'方法二

'Test (c)

'方法三

'Test (c+1)

'方法四

'Call Test(c)

msgbox c

正确答案：分别为：2 , 1 , 1 , 2

你全答对了没？全答对了你可以直接Return了，没答对的话继续往下看。

追溯

几乎所有编程语言的函数传参都有传值和传引用之分，我们的VB老兄也不例外，而且，她选择了传引用作为其默认方式，甚者，她对所有变量类型不加挑剔，全部默认采用传引用的方式，包括整型变量(int)。这也是华山论剑败北的最根本原因。

你可以在参数前使用ByVal(传值)和ByRef(传引用)关键字指明参数传递的方式：

'传值方式，c值不变

代码如下:

Function Test(ByVal a)

a = a + 1

End Function

c = 1

Test c

'c = 1

'传值方式，c值不变

代码如下:

Function Test(ByRef a)

a = a + 1

End Function

c = 1

Test c

'c = 2

领悟

通常，VB6的Function函数调用方法有两种：

Func Params

如方法一：Test c

Call Func(Params)

如方法四：Call Test(c)

因此，论剑中的方法一和方法四实质上是一样的，参数c都是通过默认的传引用方式传递，执行完函数Test后，c的值会随之改变。因此方法一和方法四的结果为：2

然而，江湖中似乎还流传着这样一种调用方法：

Func(Expression)

如方法二：Test(c) 和 方法三：Test(c+1)

注 意到没有，括号中的内容不是Params，而是Expression，是一个表达式，而表达式的计算结果会被保存到一个临时变量中传入函数体，函数调用完毕 后临时变量也随之销毁。因此，调用方法二时，表达式(c)的计算结果为1，保存到了一个临时变量传入函数Test中，函数执行完成后，原来的c值并不发生 改变。同理，方法三的调用更加显得直观一些，(c+1)的表达式运算结果被保存到了一个临时变量传入Test，原来的c值并不发送改变。所以，方法二和方 法三的结果为：1

出师

总结如下：

VB6和VBS中的函数参数默认是ByRef类型的。

Test(c)方法调用时，VB会认为你传递的不是一个变量，而是一个表达式：(c) ，这个表达式运算结果，虽然与c值相同，但却是保存在一个临时变量中，这个临时变量的改变不会影响到原来的变量c