第８講 プロシージャ(2)
第７話 ３次元配列を返したり、送ったりする例

（ｆ（）で３次元配列を作り、その３次元配列を利用して、g()ではデータ入力、h()ではデータ表示）
を実現するプログラム例
Module Module1

　　Sub Main() '私は社長だ。
　　　　Rnd (-1)
　　　　Randomize (Timer())
　　　　Dim a(2, 4, 3) As Integer
　　　　a = f() '配列作成
　　　　g (a) '行列データ作成
　　　　h (a) '行列の表示
　　End Sub

　　Function f()
　　　　Dim x(2, 4, 3) As Integer
　　　　Return x
　　End Function

　　Sub g(x(,,) As Integer)
　　　　Dim i, j, k As Integer
　　　　For i = 0 To 2
　　　　　　For j = 0 To 4
　　　　　　　　For k = 0 To 3
　　　　　　　　　　x(i, j, k) = 20 * i + 4 * j + k + 1
　　　　　　　　Next
　　　　　　Next
　　　　Next
　　End Sub

　　Sub h(x(,,) As Integer)
　　　　Dim i, j, k As Integer
　　　　For i = 0 To 2
　　　　　　For j = 0 To 4
　　　　　　　　For k = 0 To 3
　　　　　　　　　　If x(i, j, k) < 10 Then Console.Write(" {0:d} ", x(i, j, k))
　　　　　　　　　　If x(i, j, k) >= 10 Then Console.Write("{0:d} ", x(i, j, k))
　　　　　　　　Next
　　　　　　　　Console.WriteLine()
　　　　　　Next
　　　　　　Console.WriteLine()
　　　　Next
　　End Sub

End Module