vbs(asp) ByVal ByRef函数调用使用说明

2019-10-26 18:01:49

字体：大中小

来源：转载

供稿：网友

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

例子：

复制代码代码如下:

<SCRIPT LANGUAGE="vbScript">
dim a
a=0
document.write "a=0"
document.write " sub change(byref ar) "
change a
document.write a
a=0
document.write " sub change2(ByVal ar) "
change2 a
document.write a
a=0
document.write " sub change3( ar) "
change3 a
document.write a
a=0
document.write " function change4(byref ar) "
change4 a
document.write a
a=0
document.write " function change5(ByVal ar) "
change5 a
document.write a
a=0
document.write " function change6( ar) "
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&" "
Call Fun2 (i,j)
Response.Write i&"******"&j&" "
i = 10
j = 12
Call Fun (i,j)
Response.Write i&"*******"&j&" "
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是传递值源数据不会被修改

上一篇：ie7 0day当中的shellcode的escape+xor21加密

下一篇：让IIS建立的站点默认是.net 2.0的,而不是.net 1.1的代码

学习交流

电脑开不了机的原因和解决办法

电脑开不了机的原因和解决办法...

热门图片

猜你喜欢的新闻

猜你喜欢的关注