第７講 Ｄｏ Ｗｈｉｌｅ〜Ｌｏｏｐ文（繰り返し処理２）
第3話　Do While〜Loop文による2次元ループ
自然配列

を発生させるプログラムをDo While〜Loop文によって、作ってみましょう。

サンプル702参照

Private Sub CommandButton1_Click()

　　　　Dim i As Integer, j As Integer, w As Integer

　　　　i = 1
　　　　Do While i < 5
　　　　　　　　j = 1
　　　　　　　　Do While j < 5
　　　　　　　　　　　　Cells(i + 4, j + 2) = 4 * (i - 1) + j
　　　　　　　　　　　　j = j + 1
　　　　　　　　Loop
　　　　　　　　i = i + 1
　　　　Loop

End Sub


ｊ＝１の位置に気をつけてください。うっかりすると
Private Sub CommandButton1_Click()

　　　　Dim i As Integer, j As Integer, w As Integer

　　　　i = 1
　　　　j = 1
　　　　Do While i < 5
　　　　　　　　Do While j < 5
　　　　　　　　　　　　Cells(i + 4, j + 2) = 4 * (i - 1) + j
　　　　　　　　　　　　j = j + 1
　　　　　　　　Loop
　　　　　　　　i = i + 1
　　　　Loop

End Sub
でいいような気がしてしまいますが、実行してみると

となってしまって、下3行ができません。
なぜなら、上のプログラムでは、
ｉ＝１のときは、
Do While j < 5
　　　　Cells(i + 4, j + 2) = 4 * (i - 1) + j
　　　　j = j + 1
Loop
は実行されますが、
ｉ＝２のときには、実行されません。
理由は、ｉ＝１の一番最後にｊ＝５となってしまっているので、
条件式 j < 5を満たさないからです。
ですから、ループが始まる前にｊ＝１としてリセットしなければならないのです。

では皆さん、第６講で作った４次魔方陣プログラムの３つ
４次魔方陣プログラムその１
４次魔方陣プログラムその２
４次魔方陣プログラムその３
をDo While〜Loop文によって改良してみましょう。

第２話へ　第４話へ

講義トップへ

数学研究室に戻る