vbs(asp) 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