加入收藏 | 设为首页 | 会员中心 | 我要投稿 银川站长网 (https://www.0951zz.com/)- 云通信、基础存储、云上网络、机器学习、视觉智能!
当前位置: 首页 > 站长学院 > Asp教程 > 正文

在 asp 中Byval和Byref有什么不同之处呢

发布时间:2023-10-31 12:43:01 所属栏目:Asp教程 来源:
导读:下面是小编给大家分享的一篇asp中Byval和Byref的区别之处,感兴趣的朋友跟小编一起来了解一下吧!文件名称:ByVal.aspByRef.asp具体代码:Sub TestMain()Dim A : A=5Call TestBy(A)Response.write AEnd SubSub TestBy(B

下面是小编给大家分享的一篇asp中Byval和Byref的区别之处,感兴趣的朋友跟小编一起来了解一下吧!

文件名称:

ByVal.asp

ByRef.asp

具体代码:

Sub TestMain()

Dim A : A=5

Call TestBy(A)

Response.write A

End Sub

Sub TestBy(ByVal T)

T=T+1

End sub

call TestMain()

%>

Sub TestMain()

Dim A : A=5

Call TestBy(A)

Response.write A

End Sub

Sub TestBy(ByRef T)

T=T+1

End sub

call TestMain()

%>

看完了,上面的比较就知道说明意思了吧。

1、引用参数(ref)在可以作为引用参数在函数成员调用中传递之前,必须已明确赋值,而输出参数(out)在可以作为输出参数在函数成员调用中传递之前不一定要明确赋值,在该函数成员正常返回前都必须已明确赋值。

2、在函数内部,引用参数(ref)被视为初始已赋值,输出参数(out)被视为初始未赋值。

3、默认地,C#中的所有参数都是值传递。只有在参数的修饰符中明确包含out或ref,才是引用传递。但是需要知道的是,当参数的类型是引用类型时,你传递的是一个对象的引用而不是实际的对象。

实例:

代码如下:

sub Add1(ByVal no as int32)

no=no+100

end sub

sub Add2(ByRef no as int32)

no=no+100

end sub

private sub button1_click(sender as object,e as eventargs)handles button1.click

dim a as int32

a=100

Add1(a)

msgbox ("a的值为:" & a) '示:a的值为100

Add2(a)

msgbox ("a的值为:" & a) '示:a的值为200,因为Add2中的参数no为ByRef,即

'地址传递,因此在Add2中对no进行修改后,将会导致

'参数a的值也被修改。

End Sub

ByVal是传递值源数据不会被修改,你可以把这个值当作自己的局部变量来使用;ByRef是传递地址,源数据可能被修改,你对这个变量的操作将对你传入的那个变量产生影响,就像指针的感觉。

在ASP编程中,经常需要自己编写一些函数(或过程)来实现某些特定的功能,这时往往需要向函数(或过程)传递相应的参数

在函数(或过程)中进行数据处理,即有可能需要保留或改变参数的值,下面有相关范例

用下面的函数(TestAddress)就可以使一个函数多个返回值成为可能(一个函数返回值,多个参数改变后的值)

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

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

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

例子:

代码如下:

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

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

结果:

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一样, 按地址。

范例:

Option Explicit

'===================================================================

' 参数传递

' 1.值传递参数 (Call By Value)

' Function TestValue(ByVal A,ByVal B)

' 函数内参数 A、B 改变 不影响 函数的外部变量

'

' 2.指针参数 (Call By Address)

' Function TestAddress(ByRef A,Byref B)

' 函数内参数 A、B 改变 影响到 函数的外部变量

'

' 说明:

' 1. 参数可以是数字、字符、数组、对象等VBSCRIPT语言所支持的大部分类型

' 2. 函数返回值的类型也可以是数字、字符、数组、对象等VBSCRIPT语言所支持的大部分类型

' 3. 过程调用参数方法与函数类似

'===================================================================

Dim A1,B1

Dim A2,B2

Function TestValue(ByVal A,ByVal B)

A = A + 1

B = B + 1

TestValue = A + B

End Function

Function TestAddress(ByRef A,Byref B)

A = A + 1

B = B + 1

TestAddress = A + B

End Function

A1 = 11

B1 = 33

A2 = 11

B2 = 33

Response.Write "初值:" & ""

Response.Write "A1=" & A1 & ""

Response.Write "B1=" & B1 & "

"

Response.Write "函数(TestValue)值:" & TestValue(A1,B1) & "

"

Response.Write "终值:" & ""

Response.Write "A1=" & A1 & ""

Response.Write "B1=" & B1 & "

"

Response.Write "初值:" & ""

Response.Write "A2=" & A2 & ""

Response.Write "B2=" & B2 & "

"

Response.Write "函数(TestAddress)值:" & TestAddress(A2,B2) & "

"

Response.Write "终值:" & ""

Response.Write "A2=" & A2 & ""

Response.Write "B2=" & B2

'======================

' 相似过程

'======================

Sub Test_Value(ByVal A,ByVal B)

A = A + 1

B = B + 1

End Sub

Sub Test_Address(ByRef A,Byref B)

A = A + 1

B = B + 1

End Sub

' 类似,传递数组、对象(或者在函数中改变其值、属性)

'对象直接把对象名作为参数即可

' 数组,把数组名称作为参数

redim aryTest(2,2)

dim intNum

function Ary_Test(ByRef A)

Ary_Test = Ubound(Ary_Test,2)

end function

'调用

intNum = Ary_Test(intNum) '值为 3

%>

以上就是关于asp中Byval和Byref的区别之处了,想必都了解了吧,更多相关内容请继续关注技术频道。

(编辑:银川站长网)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    推荐文章