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
你也可以参看我的空间,里面一个例子