第14講　高次元配列と低次元配列の関係

第４話　１次元配列を３次元配列で表現する

解答コード例
Private Sub CommandButton1_Click()

　　Dim a(3, 2, 4) As Integer
　　Dim b(59) As Integer
　　Dim i As Integer

　　For i = 0 To 59
　　　　b(i) = i + 1
　　Next


　　Dim j As Integer, k As Integer, l As Integer
　　For i = 0 To 59
　　　　j = Int(i / 15)
　　　　k = Int(i / 5) Mod 3
　　　　l = i Mod 5
　　　　a(j, k, l) = b(i)
　　Next
　　For i = 0 To 3
　　　　For j = 0 To 2
　　　　　　For k = 0 To 4
　　　　　　　　Cells(5 + 4 * i + j, 1 + k) = a(i, j, k)
　　　　　　Next
　　　　Next
　　Next

End Sub
実行シート

解説
ポイントは、1次元の並び０，１，２，・・・，５９を如何に３次元にするかです。
次のように並べたいわけです。

まず、

と４つのブロックに分けるには、j = Int(i / 15)でよいわけです。
というのはブロックのデータ数が１５です。
　　Dim a(3, 2, 4) As Integer
この１５は、（２＋１）×（４＋１）＝１５の計算から求めるのでしたね。
iが０〜１４なら、j = Int(i / 15)＝０です。
iが１５〜２９なら、j = Int(i / 15)＝１です。
iが３０〜４４なら、j = Int(i / 15)＝２です。
iが４５〜５９なら、j = Int(i / 15)＝３です。
うまく、４つのブロックに分けられていることがわかります。
尚、４ブロックに分ける必要がある理由は、３＋１＝４です。

次の課題は、４ブロックに分けられた０，１，２，・・・，１４などを如何に３行に割り振るかです。
　　　　k = Int(i / 5) Mod 3
なぜ、これでうまくいくのでしょうか。
まず、Int(i / 5)で０，１，２，３，４，５，６，７，８，９，１０，１１，１２，１３，１４は、
０，０，０，０，０，１，１，１，１，１，２，２，２となります。
さらに、Mod 3で３で割った余りを求めても、
０，０，０，０，０，１，１，１，１，１，２，２，２で変わりありません。
しかし、０，１，２，３，４，５，６，７，８，９，１０，１１，１２，１３，１４のデータが３行にうまく割り振られています。

次の１５，１６，１７，１８，１９，２０，２１，２２，２３，２４，２５，２６，２７，２８，２９についてはどうでしょうか。
まず、Int(i / 5)によって、
３，３，３，３，３，４，４，４，４，４，５，５，５，５，５となります。
そして、Mod 3によって３で割った余りにすると、
０，０，０，０，０，１，１，１，１，１，２，２，２で今回も３行にうまく分割できています。

次の２９，３０，３１，３２，３３，３４，３５，３６，３７，３８，３９，４０，４１，４２，４３，４４についても
Int(i / 5)によって、
４，４，４，４，４，５，５，５，５，５，６，６，６，６，６となり、
Mod 3によって、
０，０，０，０，０，１，１，１，１，１，２，２，２とうまく３群に分割できています。

最後の４５，４６，４７，４８，４９，５０，５１，５２，５３，５４，５５，５６，５７，５８，５９も
７，７，７，７，７，８，８，８，８，８，９，９，９，９，９から
０，０，０，０，０，１，１，１，１，１，２，２，２となり、望みの通りになります。
　　　　k = Int(i / 5) Mod 3
のInt(i / 5)を実行したときに、０，１，２，３，４，５，６，７，８，９となります。
これを Mod 3によって０，１，２，０，１，２，０，１，２，０，１，２とすれば意図したとおりに実現できるわけです。
　　　　j = Int(i / 15)
　　　　k = Int(i / 5) Mod 3
　　　　l = i Mod 5
これは、頭が爆発しそうなほど、難しかったですね。

さて、次の課題です。
４次元配列を１次元配列で表現してみましょう。
まず、４次元データを用意し、
Private Sub CommandButton1_Click()

　　Dim a(2, 3, 4, 5) As Integer
　　Dim b(359) As Integer
　　Dim i As Integer, j As Integer, k As Integer, l As Integer

　　For i = 0 To 2
　　　　For j = 0 To 3
　　　　　　For k = 0 To 4
　　　　　　　　For l = 0 To 5
　　　　　　　　　　a(i, j, k, l) = Int(Rnd * 100)
　　　　　　　　Next
　　　　　　Next
　　　　Next
　　　Next

End Sub
次のように表示させてください。


そして、次に１次元配列に対応させてください。
対応後、シートに表示されているデータの２行下に１元配列を利用して同様に表示してください。

第３話へ　第５話へ

　　

VBA講義第１部へ
vc++講義へ
vb講義へ
ＶＢ講義基礎へ
初心者のための世界で一番わかりやすいVisual C++入門基礎講座へ
初心者のための世界で一番わかりやすいVisual aasic入門基礎講座へ

数学研究室に戻る