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