第６講 同じことの横縦の繰り返し（２次元ループ） 第４話 ２次元ループの意味
２次元の意味を考えていただくために、
もう一度プログラムの文章とプログラムの実行結果と （ｉ、j）の動きを見てください。
自然配列を発生させるプログラムの文章
Private Sub CommandButton1_Click()
Dim i As Byte, j As Byte, k As Byte
k = 0
For i = 1 To 10
For j = 1 To 10
k = k + 1
Cells(5 + i, 1 + j) = k
Next
Next
End Sub
実行結果
（ｉ、j）の動き
（1、1）→（1、2）→（1、3）→（1、4）→（1、5）→（1、6）→（1、7）→（1、8）→（1、9）→（1、10）→
（2、1）→（2、2）→（2、3）→（2、4）→（2、5）→（2、6）→（2、7）→（2、8）→（2、9）→（2、10）→
（3、1）→（3、2）→（3、3）→（3、4）→（3、5）→（3、6）→（3、7）→（3、8）→（3、9）→（3、10）→
（4、1）→（4、2）→（4、3）→（4、4）→（4、5）→（4、6）→（4、7）→（4、8）→（4、9）→（4、10）→
（5、1）→（5、2）→（5、3）→（5、4）→（5、5）→（5、6）→（5、7）→（5、8）→（5、9）→（5、10）→
（6、1）→（6、2）→（6、3）→（6、4）→（6、5）→（6、6）→（6、7）→（6、8）→（6、9）→（6、10）→
（7、1）→（7、2）→（7、3）→（7、4）→（7、5）→（7、6）→（7、7）→（7、8）→（7、9）→（7、10）→
（8、1）→（8、2）→（8、3）→（8、4）→（8、5）→（8、6）→（8、7）→（8、8）→（8、9）→（8、10）→
（9、1）→（9、2）→（9、3）→（9、4）→（9、5）→（9、6）→（9、7）→（9、8）→（9、9）→（9、10）→
（10、1）→（10、2）→（10、3）→（10、4）→（10、5）→（10、6）→（10、7）→（10、8）→（10、9）→（10、10）
→
動いていってから、
→
結局、実行結果
は実際にコンピュータが動く順番を示しています。
表示の番号順にプログラムは処理をしています。
１を表示→２を表示→３を表示→・・・→９９を表示→１００を表示
の順にコンピュータは処理を実行しています。動きは、 Private Sub CommandButton1_Click()
Dim i As Byte, j As Byte, k As Byte
k = 0
For i = 1 To 10
k = k + 1
Cells(5 , 1 + i) = k
Next
End Sub
ならば
と直線（１方向のみ）に動くのに対して、横方向と縦方向の２方向に動きます。
数学では直線を１次元、平面を２次元といいますが、１，２はもっている方向の数です。
それと同様に、 Private Sub CommandButton1_Click()
Dim i As Byte, j As Byte, k As Byte
k = 0
For i = 1 To 10
k = k + 1
Cells(5 , 1 + i) = k
Next
End Sub
は１方向のみにしか動かないので１次元ループといい、
Private Sub CommandButton1_Click()
Dim i As Byte, j As Byte, k As Byte
k = 0
For i = 1 To 10
For j = 1 To 10
k = k + 1
Cells(5 + i, 1 + j) = k
Next
Next
End Sub
は２方向に動く（平面上に動く）ので２次元ループというのです。
専門用語を用いない本講義では、
２方向の繰り返し（ループ）を『同じことの横縦の繰り返し』と呼んでいるわけです。
２次元＋ループですから、
『横縦の同じことの繰り返し』『横縦に同じことを繰り返す』とも呼びたいと思います。
２方向の動き＝平面上の動きであることを示すために、
横縦の繰り返しとしているわけです。
そして、ランダムな数字を２次元上に発生させる Private Sub CommandButton1_Click()
Dim i As Byte, j As Byte
For i = 1 To 10
For j = 1 To 10
Cells(5 + i, 1 + j) = Int(100 * Rnd())
Next
Next
End Sub
の場合でも、動き方の順番は
となっています。
横に動いてから縦に動くわけです。
入れ子式人形 Private Sub CommandButton1_Click()
Dim i As Byte, j As Byte
For i = 1 To 10
For j = 1 To 10
Cells(5 + i, 1 + j) = Int(100 * Rnd())
Next
Next
End Sub
の中の人形
For j = 1 To 10
Cells(5 + i, 1 + j) = Int(100 * Rnd())
Next が先に動き、中の人形が一通り任務を遂行し終わると、
外の人形がそのたびに１つだけ動くのです。
