文件名稱:

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的值通過子程序發生了改變