Functionモジュールの戻り値を配列で受け取る

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


コメントを残す

CAPTCHA


サブコンテンツ

カレンダー

2017年12月
« 11月    
 123
45678910
11121314151617
18192021222324
25262728293031

アーカイブ

このページの先頭へ