Question

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

发到邮箱1821840648@qq.com

Answer 1

已发送，
以下是递归的主要函数
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
你也可以参看我的空间，里面一个例子