文件名称:
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()
%>
运行结果:
5
6
结 论:
注意:子程序TestBy(ByVal T)中T变量声明方式是ByVal
运行结果子程序没有影响到A的值
注意:子程序TestBy(ByRef T)中T变量的声明方式是ByRef
运行结果A的值通过子程序发生了改变
看完了,上面的比较就知道说明意思了吧。
时间: 2024-10-25 23:58:54