第４講　残確定法によるさらなる高速化
第６話　プログラム解説その３

いよいよ最後
If n > 3 And g > 2 * n And i >= 1 And j = n - 1 Then
　　wa = 0
　　For k = 0 To n - 2
　　　　wa = wa + mah(i, k)
　　Next
　　hhh = 0
　　sa = Int(n * (n * n + 1) / 2) - wa
　　If sa < 1 Or sa > n * n Then GoTo owari1
　　If tyouhukuhantei(sa - 1) = 1 Then GoTo owari1
　　mah(i, j) = sa
　　tyouhukuhantei(sa - 1) = 1
　　hhh = 1
　　sakusei (g + 1)
　　GoTo owari1
End If
If n > 3 And g > 2 * n And i = n - 1 And j >= 1 Then
　　wa = 0
　　For k = 0 To n - 2
　　　　wa = wa + mah(k, j)
　　Next
　　hhh = 0
　　sa = Int(n * (n * n + 1) / 2) - wa
　　If sa < 1 Or sa > n * n Then GoTo owari1
　　If tyouhukuhantei(sa - 1) = 1 Then GoTo owari1
　　mah(i, j) = sa
　　tyouhukuhantei(sa - 1) = 1
　　hhh = 1
　　If g + 1 < n * n Then
　　　　sakusei (g + 1)
　　Else
　　　　cn = cn + 1
　　　　hyouji
　　End If
　　GoTo owari1
End If
を説明します。今日もn = ５を例にとって説明しましょう。
n > 3 And g > 2 * n And i >= 1 And j = n - 1は

ピンクの場所を表しています。
後は、今までと同じなので説明は不用でしょう。

第４講第５話へ　第５講第１話へ

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

VB入門講義トップへ