Functionの戻り値を配列にしたいのですが

質問

ｖｂを始めたばかりですがよろしくお願いします。

Functionの戻り値を配列にしたいのですが

Function fnc(ByVal a As Byte, ByVal b As Byte) As Integer()
fnc(0) = a + b
fnc(1) = a - b
End Function
というような使い方はできないのでしょうか？
一つのFunctionで二つの計算結果をかえすには
どうしたらよいのでしょうか？
お願いします。

回答No.3

redfox63 · ベストアンサー

ローカル変数を使えば可能だと思いますよ

VB6.0の場合
Function fnc( byVal a as Byte, Byval b as Byte) as Integer
　　dim ar(1) as Integer
　　ar(0) = a + b
　　ar(1) = a - b
　　fnc = ar
End Function

VB.NETなら
Function fnc( byVal a as Byte, Byval b as Byte) as Integer
　　dim ar(1) as Integer
　　ar(0) = a + b
　　ar(1) = a - b
　　return ar
End Function

VB.NETでも fnc = ar と言った記述も出来ます

呼び出し側では 動的配列として返り値を受けます
dim results() as Integer
results = fnc( 5, 3 )
と言った具合です

お礼

遅くなってすみません。
ありがとうございました。

バッチリでした。本当に助かりました。

回答No.5

redfox63

すみません Ano3です
関数宣言の As Integer は As Integer() でした

m(__)m

回答No.4

slate

以下、VBA（Excel2000）なので、VBで動くかは知りません。
試してみてください。

Function fnc(ByVal a As Byte, ByVal b As Byte) As Integer()
Dim p_fnc(0 To 1) As Integer
p_fnc(0) = a + b
p_fnc(1) = a - b
fnc = p_fnc
End Function

Sub test()
Dim ary() As Integer
Dim i As Integer
ary = fnc(1, 1)
For i = 0 To 1
MsgBox "配列 ary(" & CStr(i) & ")の中身は。。" & CStr(ary(i)) & "です。"
Next
End Sub

お礼

ありがとうございました。

回答No.2

unamana19

Function fnc(ByVal a As Byte, ByVal b As Byte, ByRef out_a As Integer, ByRef out_b As Integer) As Integer
out_a = a + b
out_b = a - b
End Function

で・・・戻り値は、エラーを返すとか。

お礼

ありがとうございました。

回答No.1

Kame_LABO

構造体で検索してみて下さい。

お礼

遅くなってすみません。
ありがとうございました。検索してみます。