第２講 再帰的呼び出しで魔方陣を作ろう！
第５話 プログラム本体（再帰的呼び出しプロシージャ）の解説の続き
| ０ | １ | ２ | ３ | |
| ０ | ０ | １ | ２ | ３ |
| １ | ４ | ５ | ６ | ７ |
| ２ | ８ | ９ | １０ | １１ |
| ３ | １２ | １３ | １４ | １５ |
If i = n - 1 And j = 0 Then
wa = 0
For l = 0 To n - 1
wa = wa + mah(l, n - 1 - l)
Next
If wa <> Int(n * (n * n + 1) / 2) Then GoTo owari
End If
今回はｇが１２の場合です。n = 4の場合で説明していますので、
i = 3，j = 0なので当然です。
細かい動きは前話と同じですので説明を省略します。そして、
If j = n - 1 Then
wa = 0
For l = 0 To n - 1
wa = wa + mah(i, l)
Next
If wa <> Int(n * (n * n + 1) / 2) Then GoTo owari
End If
はｇ番号３，７，１１の場合です。j = 3ですから当然ですよね。
以下同様です。細かい動きは、是非ご自分でご確認ください。
