第４講 ２次元ループに挑戦しよう。
第１話 ２次元ループの簡単な例
１から９までの和を求めるプログラムを考えてみましょう。
Private Sub CommandButton1_Click()
Dim wa As Integer, i As Integer
wa = 0
For i = 1 To 9
wa = wa + i
Next
Cells(5, 1) = wa
End Sub
これと同じ計算は次の2次元ループを使ってもできます。
Private Sub CommandButton1_Click()
Dim wa As Integer, i As Integer, j As Integer
wa = 0
For i = 1 To 3
For j = 1 To 3
wa = wa + 3 * (i - 1) + j
Next
Next
Cells(5, 1) = "１から９までの和"
Cells(6, 1) = wa
End Sub
（サンプル７参照）
3 * (i - 1)の*は×を表します。
×÷はVisual Basicにはないので、
*と/で代用しているのです。
ループする文字が２つあるので２次元ループです。
この動きトレースしてみましょう。
i = 1から始まります。
そして
For j = 1 To 3
wa = wa + 3 * (i - 1) + j
Next
によって、i = 1の間にｊは１，２，３と動いていきます。
i = 2のときもi = 3のときも同様ですから、
wa + 3 * (i - 1) + j
の動きをトレースすると、
ｉ＝１のとき
1←０＋３×（１−１）＋１
３←１＋３×（１−１）＋２
６←３＋３×（１−１）＋３
i＝２のとき
１０←６＋３×（２−１）＋１
１５←１０＋３×（２−１）＋２
２１←１５＋３×（２−１）＋３
ｉ＝３のとき
２８←２１＋３×（３−１）＋１
３６←２８＋３×（３−１）＋２
４５←３６＋３×（３−１）＋３
となり、１から９までの和が計算できることになります。
では皆さんサンプル７を参考にして、
前回の解答例の改良に取り組みましょう。
解答例の改良例
第３講第４話へ 第２話へ
