第１２講　配列その２
第３話　１次元配列と高次元配列の関係

まず、次のプログラムを開いて頂きたいと思います。
２次元と１次元の関係を示すプログラム例

プログラムソースは次のようになっています。
Dim h1(10, 10), h2(100) As Integer
Private Sub CommandButton1_Click()

　　syori1
　　syori2

End Sub

Sub syori1()

　　Dim i As Integer, j As Integer

　　For i = 1 To 10
　　　　For j = 1 To 10
　　　　　　h1(i, j) = 10 * (i - 1) + j
　　　　Next
　　Next

　　For i = 1 To 10
　　　　For j = 1 To 10
　　　　　　Cells(5 + i, j) = h1(i, j)
　　　　Next
　　Next

End Sub

Sub syori2()

　　Dim i As Integer, j As Integer, s As Integer, a As Integer

　　For i = 1 To 100
　　　　h2(i) = i
　　Next

　　For i = 1 To 100
　　　　a = (i - 1) Mod 10
　　　　s = Int((i - 1) / 10)
　　　　Cells(6 + s, 12 + a) = h2(i)
　　Next

End Sub

プログラム実行してみてください。
syori1とsyori2で処理された結果は全く同じです。
実は、２次元配列は１次元配列でも表現できるのです。
同様に３次元以上の高次元配列であっても１次元配列で扱えます。

２次元配列を１次元配列に代入するには、
例えば、次のようにすればよいのです。
　　For i = 1 To 10
　　　　For j = 1 To 10
　　　　　　h2(10 * (i ｰ 1) +j ) = h1(i, j)
　　　　Next
　　Next
なぜこれでよいか、表を使ってみてみましょう。
次の表はｉ、ｊと10 * (i ｰ 1) +jの関係を示すものです。

ピンクの部分が10 * (i ｰ 1) +j を表しています。
重複なく連続しした整数になることがおわかりいただけると思います。
見事に（ｉ，ｊ）の２次元とピンクの１次元が対応しています。

逆に、１次元配列を２次元配列に代入するためには、
　　For i = 1 To 100
　　　　a = (i - 1) Mod 10
　　　　s = Int((i - 1) / 10)
　　　　h1(i, j) = h2(s + 1，a + 1)
　　Next
とすればよいのです。
a = (i - 1) Mod 10はｉから１引いた整数を１０で割ったときの余り、
s = Int((i - 1) / 10)はｉから１引いた整数を１０で割ったときの商で対応表は

となります。ピンクがｉを表しています。
１次元ｉが２次元（ｓ＋１，ｔ＋１）に対応していることがおわかりかと思います。

C言語あたりでは基本的に多次元配列は使いません。
すべて１次元配列で済むからです。

では皆さん、３次元配列と１次元配列の場合で代入を考え、
同様なプログラムを作ってみてください。

第２話へ　第４話へ