• 参照渡し (既定)

  引数を参照渡しするときは、メモリ内の値へのポインタが渡されます。関数は引数を処理します。関数が参照によって渡された値を変更すると、元の値も変更されます。

• 値渡し

  引数を値渡しするときは、メモリ内のコピーが渡されます。関数はコピーで処理を行います。関数が値によって渡された値を変更すると、その効果は関数に対してローカルです。コピーは変更されますが、メモリ内の元の値は影響を受けません。

• 配列、リスト、型のインスタンス、オブジェクトは、必ず参照渡しする必要があります。

• 定数と式は、自動的に値渡しされます。
• 他の引数は、定義または呼び出しの指定に応じて、いずれの方法でも渡すことができます。関数とサブルーチンを呼び出すための引数は、定義や呼び出しで値渡しを指定しなければ参照渡しされます。

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

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

値渡し

以下の処理ができます。

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

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

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

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

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

例

例 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:I027 値渡しが不正です: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:I027 値渡しが不正です:Y
' Error:T009 データ型が一致しません: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.

関連項目

関数
引数を C 関数へ引き渡す
配列、型、オブジェクトを引き渡す
文字列を引き渡す

用語集