vb写的数独查找答案的源代码,最好是vb6

已发送,

以下是递归的主要函数

Function TianChong1_1DA(x As Long, y As Long) As Boolean

Dim tmp As Long, JiXu As Boolean

For m = 1 To 9

If fDA(x, y, m) = 0 Then

If fDA(x, y, 0) = 0 Then fDA(x, y, 0) = m

TCJishuDA = TCJishuDA + 1

ReDim Preserve QingKong(TCJishuDA)

tmp = TianChongDA

If tmp <> 1 And tmp <> 2 Then

TianChong1_1DA tmp Mod 10, Int(tmp / 10)

End If

If jieJS > 0 Then TianChong1_1DA = True

If yuanSSJ(x, y) = 1 Then Exit Function

For n = 1 To 9

For nn1 = 1 To 9

For nn = 1 To 9

fDA(n, nn, nn1) = 0

Next

Next

Next

If fDA(x, y, 0) = m Then fDA(x, y, 0) = 0

QingKong_1DA (TCJishuDA)

TCJishuDA = TCJishuDA - 1

ReDim Preserve QingKong(TCJishuDA)

TCBiaojiDA

End If

Next

End Function

你也可以参看我的空间,里面一个例子