文件名称:

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