HOW TO：變更程序引數的值

發行項
08/21/2008

更新：2007 年 11 月

在呼叫程序時，您提供的每個引數都會對應到程序中所定義的其中一個參數。在某些情況下，程序程式碼可在呼叫程式碼中變更引數所對應的值。在其他情況下，程序只可變更引數的本機複本。

呼叫程序時，Visual Basic 會產生以 ByVal 方式傳遞之每個引數的本機複本。對於每個以 ByRef 方式傳遞的引數，Visual Basic 會在呼叫程式碼中將引數對應的程式設計項目的直接參考提供給程序程式碼。

如果呼叫程式碼中的對應項目是可修改的項目，且引數是以 ByRef 方式傳遞，則程序程式碼可使用直接參考來變更呼叫程式碼中的項目值。

變更對應值

若要變更呼叫程式碼中程序引數的對應值

在程序宣告中，針對與引數對應的參數指定 ByRef。
在呼叫程式碼中，將可修改的程式設計項目做為引數傳遞。
在呼叫程式碼中，不要在引數清單中將引數封入括號中。
在程序程式碼中，使用參數名稱來指派呼叫程式碼中對應項目的值。

請參閱以下範例中的說明。

變更本機複本

如果呼叫程式碼中的對應項目是不可修改的項目，或如果引數是以 ByVal 方式傳遞，則程序無法變更它在呼叫程式碼中的值。不過，程序可變更這類引數的本機複本。

若要變更程序程式碼中程序引數的複本

在程序宣告中，針對與引數對應的參數指定 ByVal。

-或-

在呼叫程式碼中，在引數清單中將引數封入括號中。這會強制 Visual Basic 以傳值 (By Value) 方式傳遞引數，即使對應的參數指定 ByRef 也一樣。
在程序程式碼中，使用參數名稱來指派引數本機複本的值。呼叫程式碼中的對應值不會變更。

範例

下列範例會顯示兩個取得陣列變數，並在其元素上作業的程序。increase 程序只會將每個元素加一。replace 程序會將新陣列指派給參數 a()，然後每個元素都加一。

Public Sub increase(ByVal a() As Long)
    For j As Integer = 0 To UBound(a)
        a(j) = a(j) + 1
    Next j
End Sub

Public Sub replace(ByRef a() As Long)
    Dim k() As Long = {100, 200, 300}
    a = k
    For j As Integer = 0 To UBound(a)
        a(j) = a(j) + 1
    Next j
End Sub

Dim n() As Long = {10, 20, 30, 40}
Call increase(n)
MsgBox("After increase(n): " & CStr(n(0)) & ", " & _
    CStr(n(1)) & ", " & CStr(n(2)) & ", " & CStr(n(3)))
Call replace(n)
MsgBox("After replace(n): " & CStr(n(0)) & ", " & _
    CStr(n(1)) & ", " & CStr(n(2)) & ", " & CStr(n(3)))

第一個 MsgBox 呼叫顯示 "After increase(n): 11, 21, 31, 41"。因為陣列 n 是參考型別 (Reference Type)，所以 replace 可變更其成員，即使傳遞機制是 ByVal 也一樣。

第二個 MsgBox 呼叫顯示 "After replace(n): 101, 201, 301"。因為 n 是以 ByRef 方式傳遞，所以 replace 可修改呼叫程式碼中的變數 n ，並指派新陣列給它。因為 n 是參考型別，所以 replace 也可變更其成員。

您可防止程序在呼叫程式碼中修改變數本身。請參閱 HOW TO：防止程序引數的值變更。