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