文件名称:

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的值通过子程序发生了改变