文件名称: | 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的值通过子程序发生了改变 |
新闻热点
疑难解答