递归学习之--数独解法

micch

忘了，很久以前的事了，刚学代码时好像在哪个帖子里，回帖讨论，也忘了是完整的代码，还是优化了一部分

cui26896

是的，是在回帖中，地址是
做了个数独快速解题器，喜欢数独的下载试试
http://club.excelhome.net/thread-1092452-1-1.html
(出处: ExcelHome技术论坛)

ydlpc

很有趣呢。

lsdongjh

sudoku-Finsh.rar (84.97 KB, 下载次数: 40)

2020-2-19 16:49 上传

点击文件名下载附件

源码全开放，供大家参考、借鉴

对整体架构进行了优化，分为 事件模块、功能模块、类模块
其中类模块对外提供3个属性、7个方法

1. '***************************************************************
   
2. '                  VBA 数独类模块
   
3. '                   (clsSukodu)
   
4. '             Ver:1.0        Author:lsdongjh
   
5. '***************************************************************
   
6. 
   
7. '1--属性
   
8. '----------------------------------------------------------------
   
9. '    (1)AnswerCount : 只读，获取答案的总数，与GetOnlyOneAnswer属性相关，默认只取一个
   
10. '    (2)GetOnlyOneAnswer :可读写，是否只取唯一解除，默认为真
    
11. '    (3)HasCreate : 只读，判断是否创建题目
    
12. 
    
13. '2--方法
    
14. '----------------------------------------------------------------
    
15. '    (1)CreateSukodu(Optional intDifficulty As Integer = 0)
    
16. '       根据intDifficulty设定的难度系数，自动创建题目，intDifficulty取值为0-9，默认为0
    
17.    
    
18. '    (2)AutoSolve
    
19. '       自动解题，无参。该方法需要判断 HasCreate属性
    
20. 
    
21. '    (3)CheckValue(RowID As Integer, ColID As Integer, intValue As Integer) As Boolean
    
22. '       判断指定的位置是否可填入指定的值，可填返回True,否则为False
    
23. 
    
24. '    (4)GetOptional(RowID As Integer, ColID As Integer) As String
    
25. '       以字符串形式返回指定位置可选的数字，每个数字间隔2个空格
    
26. 
    
27. '    (5)InitSukoduByValue(varValue As Variant, affType As varType) As Boolean
    
28. '       根据传入的内容生成题目，成功返回True,否则为False
    
29. '       affType:自定义枚举
    
30. '           Two_dimensional_array 二维数组
    
31. '           One_dimensional_array 一维数组
    
32. '           Character_string 字符串
    
33. 
    
34. '    (6)OutPutValue(Optional OutType As varType = Two_dimensional_array) As Variant
    
35. '       根据指定格式输出现有题目，参数affType同InitSukoduByValue方法
    
36. 
    
37. '    (7)ShowAnswer(Optional intIndex As Integer = 1) As Integer()
    
38. '       以二维数组形式输出答案，与GetOnlyOneAnswer、AnswerCount属性配合使用

复制代码

yangyangzhifeng

micch 发表于 2020-2-17 19:25
能递归出来就很厉害，之前搜过数独，好像有个帖子里香川老师发过数独的算法代码，可惜论坛搜索不好使找不到 ...

http://club.excelhome.net/thread-1064677-1-1.html
http://club.excelhome.net/thread-1433335-1-1.html

cjq253

进来膜拜一下

一级助理

门外汉看过热闹

wztx

学习学习，感谢大神

YANWEI82123300

学会递归，就是高人了，想老师们学习