文件名称: | 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() %> |
运行结果:
相关文章
|