第2講 再帰的呼び出しで魔方陣を作ろう!
第5話 プログラム本体(再帰的呼び出しプロシージャ)の解説の続き

 0  1  2  3
 0  1  2  3
 4  5  6  7
 8  9 10 11
12 13 14 15

    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

今回はgが12の場合です。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

はg番号3,7,11の場合です。j = 3ですから当然ですよね。
以下同様です。細かい動きは、是非ご自分でご確認ください。


第2講第4話へ  第3講第1話へ


VB入門講義応用編トップへ

VB入門講義トップへ