引数の参照渡しと値渡し

参照渡し

変数は、関数定義の中で対応するパラメータのデータ型と一致しなければなりません。ただし、パラメータが Variant 型やオブジェクトの変数として宣言されている場合は、その限りではありません。オブジェクトの変数は、同じクラスのオブジェクト、ベースクラスのオブジェクト、またはそこから派生したクラスのオブジェクトに引き渡すことができます。後者の場合、ベースのクラスは派生したクラスやそこからさらに派生したクラスのインスタンスを含んでいる必要があります。

関数やサブルーチンで変更される変数は、処理が終わると変更された値を保持します。

値渡し

以下の処理ができます。

• 関数やサブルーチンの定義中で引数の宣言に ByVal キーワードを使用します。

  関数やサブルーチンを呼び出すとき、引数は常に値渡しされます。

• 関数やサブルーチンの呼び出し内で引数の前後をカッコで囲みます。

  関数やサブルーチンを呼び出すときに、引数を参照渡しにするか値渡しにするかを使い分けることができます。

関数やサブルーチンに渡される値は、可能であれば、関数やサブルーチンのデータ型に自動的に変換されます。Variant 型の引数は、リスト、配列、オブジェクトなど、どのような組み込みデータ型の値でも受け入れますが、ユーザー定義型の値は受け入れません。ただし、リスト、配列、オブジェクト、ユーザー定義型は値渡しできないので、値渡しされることはありません。

変数引数が関数やサブルーチンによって変更されても、処理が終わった後も元の値を保持します。関数やサブルーチンは渡された変数のコピーだけを処理するので、変数自体は変化しません。

例

例 1

' Define a function FOver with three Integer parameters:
' a variable, an array variable, and a list variable.
Function FOver(a As Integer, b() As Integer, c List As Integer)
   ' ...
End Function
Dim x As Integer
Dim y(5) As Integer
Dim z List As Integer
' Call the function FOver correctly, with arguments
' whose types match the types of the declared parameters.
Call FOver(x, y, z)

例 2

' Define a function GLevel with one Integer list parameter.
Function GLevel (b List As Integer)
   ' ...
End Function
Dim z List As Integer
' Call the function GLevel incorrectly, passing a list
' argument by value.
Call GLevel ((z))
' Output:
' Error: Illegal pass by value: Z
' A list argument cannot be passed by value.

例 3

' Define a function FExpr with two Integer parameters;
' the second must always be passed by value.
Function FExpr(a As Integer, ByVal b As Integer)
   ' ...
End Function
Dim x As Integer, w As Integer
Dim y(5) As Integer
Dim z List As Integer
' Call the function FExpr correctly with two Integer
' arguments: a constant and a variable.
Call FExpr(TRUE, x)
' Both arguments are passed by value:
' the first, TRUE, because it is a constant;
' and the second, x, because of the ByVal declaration
' in FExpr.
' The following call produces two error messages:
Call FExpr(TRUE, y)
' Output:
' Error: Illegal pass by value: Y
' Error: Type mismatch on: Y
' Because Y is an array variable, it is an illegal argument to 
' pass by value and its type does not match the declared 
' parameter type.

例 4

' When a function modifies one of its parameters,
' the argument value is changed after the function returns
' if the argument was passed by reference. The value is not
' changed if the argument was passed by value.
Function FTRefOrVal(a As Integer) As Integer
   FTRefOrVal = a + 1
   a = a + 5
End Function
Dim x As Integer, y As Integer
' Show results of passing argument by reference.
Print x, FTRefOrVal(x), x
' Output:
' 0            1             5
' The value of x was changed from 0 to 5 in FTRefOrVal.
' Show results of calling with argument by value
' (note the extra parentheses around y%).
Print y, FTRefOrVal((y)), y
' Output:
' 0            1             0
' The value of the copy of y was changed from 0 to 5
' in FTRefOrVal. The value of y is unchanged.