规求vba解数独游戏的源码

香川群子 · 发表于 2013-10-16 21:16

计算不超过1秒钟。

香川群子 · 发表于 2013-10-16 21:54

增加一个生成新数独题目的代码：

Sub NewShudu()
Dim sj(80), i&, j&, k&, s$, t$
Randomize
tms = Timer
For i = 0 To 2
s = "123456789"
For k = 0 To 80
If (k \ 9) \ 3 = i And (k Mod 9) \ 3 = i Then
t = Mid(s, Int(Rnd * Len(s)) + 1, 1): s = Replace(s, t, "")
sj(k) = t
End If
Next
Next
m = 0: cnt1 = 0: cnt2 = 0
Call sim(sj, 27)
[b24] = Format(Timer - tms, "0.000s ") & cnt1 & "/" & cnt2
sj0 = [b12].Resize(9, 9)
For i = 1 To 9
For j = 1 To 9
If Rnd < 6 / 9 Then sj0(i, j) = ""
Next
Next
[b2].Resize(9, 9) = sj0
End Sub

复制代码

香川群子 · 发表于 2013-10-17 14:07

增加了几个题目。

我的递归算法思路应该是比较简单的。
代码量也是比较少的。

一直向前走 · 发表于 2013-10-17 15:14

香川群子发表于 2013-10-17 14:07
增加了几个题目。

我的递归算法思路应该是比较简单的。

学习下，顺便膜拜

lee1892 · 发表于 2013-10-17 17:24

香川群子发表于 2013-10-17 14:07
增加了几个题目。

我的递归算法思路应该是比较简单的。

Level-8 貌似多解

试试作成下面这样的效果？[code=vb]题目：
+-------+-------+-------+ +-------------------------------+-------------------------------+-------------------------------+
| . 7 . | . . . | 9 . 4 | | 123.5..8. ......... 123....8. | .23..6... 1.3..6... 1.3...... | ......... ..3.56... ......... |
| . . . | . . . | . 8 2 | | 1.345.... 1.345.... 1.34....9 | ..3..67.9 1.34.67.9 1.34..7.9 | 1...56... ......... ......... |
| . 6 . | . 8 5 | . . . | | 1234..... ......... 1234....9 | .23...7.9 ......... ......... | 1........ ..3...7.. 1.3...7.. |
+-------+-------+-------+ +-------------------------------+-------------------------------+-------------------------------+
| 6 . . | 1 2 . | . . . | | ......... ..345.... ..34..78. | ......... ......... ..34..789 | ....5..8. ..3.5.7.9 ..3.5.789 |
| 9 . . | 5 . . | . 1 . | | ......... .234..... .234..78. | ......... ..34.67.. ..34..78. | .2...6.8. ......... ..3..678. |
| . . . | . . . | 4 . . | | 123.5..8. 123.5.... 123...78. | ..3..67.9 ..3..67.9 ..3...789 | ......... .23.567.9 ..3.56789 |
+-------+-------+-------+ +-------------------------------+-------------------------------+-------------------------------+
| . 9 . | 8 . . | 3 . . | | 12.4..... ......... 12.4.6... | ......... 1...5.7.. 1.....7.. | ......... .2.456... 1...56... |
| . 8 5 | . . 6 | 7 . . | | 1234..... ......... ......... | ..3.....9 1.3.....9 ......... | ......... .2.4....9 1.......9 |
| 7 . . | 4 . 2 | . . . | | ......... 1.3...... 1.3..6... | ......... 1.3.5...9 ......... | 1...56.8. ....56..9 1...56.89 |
+-------+-------+-------+ +-------------------------------+-------------------------------+-------------------------------+

第001步：使用的技巧 06
+-------+-------+-------+ +-------------------------------+-------------------------------+-------------------------------+
| . 7 . | . . . | 9 . 4 | | 123.5..8. ......... 123....8. | .23..6... 1.3..6... 1.3...... | ......... ..3.56... ......... |
| . . . | . . . | . 8 2 | | 1.345.... 1.345.... 1.34....9 | ..3..67.9 1.34.67.9 1.34..7.9 | 1...56... ......... ......... |
| . 6 . | . 8 5 | . . . | | 1234..... ......... 1234....9 | .23...7.9 ......... ......... | 1........ ..3...7.. 1.3...7.. |
+-------+-------+-------+ +-------------------------------+-------------------------------+-------------------------------+
| 6 . . | 1 2 . | . . . | | ......... ..345.... ..34..78. | ......... ......... ..34..789 | ....5..8. ..3.5.7.9 ..3.5.789 |
| 9 . . | 5 . . | 2 1 . | | ......... ..34..... ..34..78. | ......... ..34.67.. ..34..78. | ......... ......... ..3..678. |
| . . . | . . . | 4 . . | | 123.5..8. 123.5.... 123...78. | ..3..67.9 ..3..67.9 ..3...789 | ......... ..3.567.9 ..3.56789 |
+-------+-------+-------+ +-------------------------------+-------------------------------+-------------------------------+
| . 9 . | 8 . . | 3 . . | | 12.4..... ......... 12.4.6... | ......... 1...5.7.. 1.....7.. | ......... .2.456... 1...56... |
| . 8 5 | . . 6 | 7 . . | | 1234..... ......... ......... | ..3.....9 1.3.....9 ......... | ......... .2.4....9 1.......9 |
| 7 . . | 4 . 2 | . . . | | ......... 1.3...... 1.3..6... | ......... 1.3.5...9 ......... | 1...56.8. ....56..9 1...56.89 |
+-------+-------+-------+ +-------------------------------+-------------------------------+-------------------------------+
[1/1]: 在格子R5C7中添加数字：2

第002步：使用的技巧 06
+-------+-------+-------+ +-------------------------------+-------------------------------+-------------------------------+
| . 7 . | . . . | 9 . 4 | | 123.5..8. ......... 123....8. | .23..6... 1.3..6... 1.3...... | ......... ..3.56... ......... |
| . . . | . . . | . 8 2 | | 1.345.... 1.345.... 1.34....9 | ..3..67.9 1.34.67.9 1.34..7.9 | 1...56... ......... ......... |
| . 6 . | . 8 5 | . . . | | 1234..... ......... 1234....9 | .23...7.9 ......... ......... | 1........ ..3...7.. 1.3...7.. |
+-------+-------+-------+ +-------------------------------+-------------------------------+-------------------------------+
| 6 . . | 1 2 . | . . . | | ......... ..345.... ..34..78. | ......... ......... ..34..789 | ....5..8. ..3.5.7.9 ..3.5.789 |
| 9 . . | 5 . . | 2 1 . | | ......... ..34..... ..34..78. | ......... ..34.67.. ..34..78. | ......... ......... ..3..678. |
| . 2 . | . . . | 4 . . | | 1.3.5..8. ......... 1.3...78. | ..3..67.9 ..3..67.9 ..3...789 | ......... ..3.567.9 ..3.56789 |
+-------+-------+-------+ +-------------------------------+-------------------------------+-------------------------------+
| . 9 . | 8 . . | 3 . . | | 12.4..... ......... 12.4.6... | ......... 1...5.7.. 1.....7.. | ......... .2.456... 1...56... |
| . 8 5 | . . 6 | 7 . . | | 1234..... ......... ......... | ..3.....9 1.3.....9 ......... | ......... .2.4....9 1.......9 |
| 7 . . | 4 . 2 | . . . | | ......... 1.3...... 1.3..6... | ......... 1.3.5...9 ......... | 1...56.8. ....56..9 1...56.89 |
+-------+-------+-------+ +-------------------------------+-------------------------------+-------------------------------+
[1/1]: 在格子R6C2中添加数字：2

第003步：使用的技巧 09
+-------+-------+-------+ +-------------------------------+-------------------------------+-------------------------------+
| . 7 . | . . . | 9 . 4 | | 123.5..8. ......... 123....8. | .23..6... 1.3..6... 1.3...... | ......... ..3.56... ......... |
| . . . | . . . | . 8 2 | | 1.345.... 1.345.... 1.34....9 | ..3..67.9 1.34.67.9 1.34..7.9 | ....56... ......... ......... |
| . 6 . | . 8 5 | 1 . . | | .234..... ......... .234....9 | .23...7.9 ......... ......... | ......... ..3...7.. ..3...7.. |
+-------+-------+-------+ +-------------------------------+-------------------------------+-------------------------------+
| 6 . . | 1 2 . | . . . | | ......... ..345.... ..34..78. | ......... ......... ..34..789 | ....5..8. ..3.5.7.9 ..3.5.789 |
| 9 . . | 5 . . | 2 1 . | | ......... ..34..... ..34..78. | ......... ..34.67.. ..34..78. | ......... ......... ..3..678. |
| . 2 . | . . . | 4 . . | | 1.3.5..8. ......... 1.3...78. | ..3..67.9 ..3..67.9 ..3...789 | ......... ..3.567.9 ..3.56789 |
+-------+-------+-------+ +-------------------------------+-------------------------------+-------------------------------+
| . 9 . | 8 . . | 3 . . | | 12.4..... ......... 12.4.6... | ......... 1...5.7.. 1.....7.. | ......... .2.456... 1...56... |
| . 8 5 | . . 6 | 7 . . | | 1234..... ......... ......... | ..3.....9 1.3.....9 ......... | ......... .2.4....9 1.......9 |
| 7 . . | 4 . 2 | . . . | | ......... 1.3...... 1.3..6... | ......... 1.3.5...9 ......... | ....56.8. ....56..9 1...56.89 |
+-------+-------+-------+ +-------------------------------+-------------------------------+-------------------------------+
[1/1]: 在格子R3C7中添加数字：1

第004步：使用的技巧 11
+-------+-------+-------+ +-------------------------------+-------------------------------+-------------------------------+
| . 7 . | . . . | 9 . 4 | | 123.5..8. ......... 123....8. | .23..6... 1.3..6... 1.3...... | ......... ..3.56... ......... |
| . . . | . . . | . 8 2 | | 1.3.5.... 1.3.5.... 1.3.....9 | ..3..67.9 1.34.67.9 1.34..7.9 | ....56... ......... ......... |
| . 6 . | . 8 5 | 1 . . | | .234..... ......... .234....9 | .23...7.9 ......... ......... | ......... ..3...7.. ..3...7.. |
+-------+-------+-------+ +-------------------------------+-------------------------------+-------------------------------+
| 6 . . | 1 2 . | . . . | | ......... ..345.... ..34..78. | ......... ......... ..34..789 | ....5..8. ..3.5.7.9 ..3.5.789 |
| 9 . . | 5 . . | 2 1 . | | ......... ..34..... ..34..78. | ......... ..34.67.. ..34..78. | ......... ......... ..3..678. |
| . 2 . | . . . | 4 . . | | 1.3.5..8. ......... 1.3...78. | ..3..67.9 ..3..67.9 ..3...789 | ......... ..3.567.9 ..3.56789 |
+-------+-------+-------+ +-------------------------------+-------------------------------+-------------------------------+
| . 9 . | 8 . . | 3 . . | | 12.4..... ......... 12.4.6... | ......... 1...5.7.. 1.....7.. | ......... .2.456... 1...56... |
| . 8 5 | . . 6 | 7 . . | | 1234..... ......... ......... | ..3.....9 1.3.....9 ......... | ......... .2.4....9 1.......9 |
| 7 . . | 4 . 2 | . . . | | ......... 1.3...... 1.3..6... | ......... 1.3.5...9 ......... | ....56.8. ....56..9 1...56.89 |
+-------+-------+-------+ +-------------------------------+-------------------------------+-------------------------------+
[1/3]: 在格子R2C1中删除待选数：4
[2/3]: 在格子R2C2中删除待选数：4
[3/3]: 在格子R2C3中删除待选数：4
........
[/code]

lee1892 · 发表于 2013-10-18 12:16

香川群子发表于 2013-10-17 14:07
增加了几个题目。

我的递归算法思路应该是比较简单的。

正好，我几年前写的一些技巧足够解你的Level-7：
[code=vb]题目：
+-------+-------+-------+
| . 7 . | . . . | 9 . 4 |
| . . . | . . . | . 8 2 |
| . 6 . | . 8 5 | . . . |
+-------+-------+-------+
| 6 . . | 1 2 . | . . . |
| 9 . . | 5 . . | . 1 . |
| . . . | . . . | 4 . . |
+-------+-------+-------+
| . 9 . | 8 . . | 3 . . |
| . 8 5 | . . 6 | 7 . . |
| 7 . . | 4 . 2 | . . . |
+-------+-------+-------+

第001步：使用的技巧 06 - 列中仅有一格可填该数
[1/1]: 在格子R5C7中添加数字：2
第002步：使用的技巧 06 - 列中仅有一格可填该数
[1/1]: 在格子R6C2中添加数字：2
第003步：使用的技巧 09 - 该格仅有一个可选数
[1/1]: 在格子R3C7中添加数字：1
第004步：使用的技巧 11 - 行中某可选数为其它行列锁定
[1/3]: 在格子R2C1中删除待选数：4
[2/3]: 在格子R2C2中删除待选数：4
[3/3]: 在格子R2C3中删除待选数：4
第005步：使用的技巧 11 - 行中某可选数为其它行列锁定
[1/1]: 在格子R3C4中删除待选数：7
第006步：使用的技巧 12 - 列中某可选数为其它行列锁定
[1/2]: 在格子R4C3中删除待选数：4
[2/2]: 在格子R5C3中删除待选数：4
第007步：使用的技巧 13 - 同行列宫中两格的可选数为相同的2个
[1/1]: 在格子R1C8中删除待选数：3
第008步：使用的技巧 10 - 宫中某可选数为其它行列锁定
[1/3]: 在格子R3C1中删除待选数：3
[2/3]: 在格子R3C3中删除待选数：3
[3/3]: 在格子R3C4中删除待选数：3
第009步：使用的技巧 14 - 同行列宫中三格的可选数为相同的3个中的几个
[1/3]: 在格子R8C1中删除待选数：1
[2/3]: 在格子R8C1中删除待选数：3
[3/3]: 在格子R8C8中删除待选数：9
第010步：使用的技巧 10 - 宫中某可选数为其它行列锁定
[1/1]: 在格子R9C5中删除待选数：3
第011步：使用的技巧 14 - 同行列宫中三格的可选数为相同的3个中的几个
[1/4]: 在格子R1C1中删除待选数：1
[2/4]: 在格子R1C1中删除待选数：2
[3/4]: 在格子R2C1中删除待选数：1
[4/4]: 在格子R6C1中删除待选数：1
第012步：使用的技巧 04 - 宫中仅有一格可填该数
[1/1]: 在格子R6C3中添加数字：1
第013步：使用的技巧 04 - 宫中仅有一格可填该数
[1/1]: 在格子R2C2中添加数字：1
第014步：使用的技巧 04 - 宫中仅有一格可填该数
[1/1]: 在格子R7C1中添加数字：1
第015步：使用的技巧 06 - 列中仅有一格可填该数
[1/1]: 在格子R4C2中添加数字：5
第016步：使用的技巧 04 - 宫中仅有一格可填该数
[1/1]: 在格子R5C2中添加数字：4
第017步：使用的技巧 04 - 宫中仅有一格可填该数
[1/1]: 在格子R4C6中添加数字：4
第018步：使用的技巧 04 - 宫中仅有一格可填该数
[1/1]: 在格子R2C5中添加数字：4
第019步：使用的技巧 06 - 列中仅有一格可填该数
[1/1]: 在格子R9C2中添加数字：3
第020步：使用的技巧 06 - 列中仅有一格可填该数
[1/1]: 在格子R1C6中添加数字：1
第021步：使用的技巧 09 - 该格仅有一个可选数
[1/1]: 在格子R4C7中添加数字：8
第022步：使用的技巧 04 - 宫中仅有一格可填该数
[1/1]: 在格子R9C9中添加数字：8
第023步：使用的技巧 04 - 宫中仅有一格可填该数
[1/1]: 在格子R8C9中添加数字：1
第024步：使用的技巧 02 - 待填数还剩最后一个未填
[1/1]: 在格子R9C5中添加数字：1
第025步：使用的技巧 04 - 宫中仅有一格可填该数
[1/1]: 在格子R7C5中添加数字：5
第026步：使用的技巧 04 - 宫中仅有一格可填该数
[1/1]: 在格子R7C6中添加数字：7
第027步：使用的技巧 04 - 宫中仅有一格可填该数
[1/1]: 在格子R2C4中添加数字：7
第028步：使用的技巧 04 - 宫中仅有一格可填该数
[1/1]: 在格子R9C8中添加数字：9
第029步：使用的技巧 04 - 宫中仅有一格可填该数
[1/1]: 在格子R9C7中添加数字：5
第030步：使用的技巧 04 - 宫中仅有一格可填该数
[1/1]: 在格子R1C8中添加数字：5
第031步：使用的技巧 04 - 宫中仅有一格可填该数
[1/1]: 在格子R2C1中添加数字：5
第032步：使用的技巧 02 - 待填数还剩最后一个未填
[1/1]: 在格子R6C9中添加数字：5
第033步：使用的技巧 04 - 宫中仅有一格可填该数
[1/1]: 在格子R2C7中添加数字：6
第034步：使用的技巧 04 - 宫中仅有一格可填该数
[1/1]: 在格子R4C9中添加数字：9
第035步：使用的技巧 05 - 行中仅有一格可填该数
[1/1]: 在格子R9C3中添加数字：6
第036步：使用的技巧 09 - 该格仅有一个可选数
[1/1]: 在格子R7C9中添加数字：6
第037步：使用的技巧 04 - 宫中仅有一格可填该数
[1/1]: 在格子R6C8中添加数字：6
第038步：使用的技巧 04 - 宫中仅有一格可填该数
[1/1]: 在格子R5C5中添加数字：6
第039步：使用的技巧 02 - 待填数还剩最后一个未填
[1/1]: 在格子R1C4中添加数字：6
第040步：使用的技巧 04 - 宫中仅有一格可填该数
[1/1]: 在格子R3C4中添加数字：2
第041步：使用的技巧 04 - 宫中仅有一格可填该数
[1/1]: 在格子R1C3中添加数字：2
第042步：使用的技巧 04 - 宫中仅有一格可填该数
[1/1]: 在格子R1C1中添加数字：8
第043步：使用的技巧 04 - 宫中仅有一格可填该数
[1/1]: 在格子R2C3中添加数字：3
第044步：使用的技巧 04 - 宫中仅有一格可填该数
[1/1]: 在格子R3C3中添加数字：9
第045步：使用的技巧 04 - 宫中仅有一格可填该数
[1/1]: 在格子R3C1中添加数字：4
第046步：使用的技巧 04 - 宫中仅有一格可填该数
[1/1]: 在格子R1C5中添加数字：3
第047步：使用的技巧 04 - 宫中仅有一格可填该数
[1/1]: 在格子R2C6中添加数字：9
第048步：使用的技巧 04 - 宫中仅有一格可填该数
[1/1]: 在格子R6C1中添加数字：3
第049步：使用的技巧 04 - 宫中仅有一格可填该数
[1/1]: 在格子R5C3中添加数字：8
第050步：使用的技巧 02 - 待填数还剩最后一个未填
[1/1]: 在格子R6C6中添加数字：8
第051步：使用的技巧 04 - 宫中仅有一格可填该数
[1/1]: 在格子R4C3中添加数字：7
第052步：使用的技巧 04 - 宫中仅有一格可填该数
[1/1]: 在格子R5C6中添加数字：3
第053步：使用的技巧 04 - 宫中仅有一格可填该数
[1/1]: 在格子R6C5中添加数字：7
第054步：使用的技巧 04 - 宫中仅有一格可填该数
[1/1]: 在格子R6C4中添加数字：9
第055步：使用的技巧 02 - 待填数还剩最后一个未填
[1/1]: 在格子R8C5中添加数字：9
第056步：使用的技巧 04 - 宫中仅有一格可填该数
[1/1]: 在格子R4C8中添加数字：3
第057步：使用的技巧 04 - 宫中仅有一格可填该数
[1/1]: 在格子R3C9中添加数字：3
第058步：使用的技巧 02 - 待填数还剩最后一个未填
[1/1]: 在格子R8C4中添加数字：3
第059步：使用的技巧 04 - 宫中仅有一格可填该数
[1/1]: 在格子R3C8中添加数字：7
第060步：使用的技巧 02 - 待填数还剩最后一个未填
[1/1]: 在格子R5C9中添加数字：7
第061步：使用的技巧 04 - 宫中仅有一格可填该数
[1/1]: 在格子R8C1中添加数字：2
第062步：使用的技巧 02 - 待填数还剩最后一个未填
[1/1]: 在格子R7C8中添加数字：2
第063步：使用的技巧 04 - 宫中仅有一格可填该数
[1/1]: 在格子R7C3中添加数字：4
第064步：使用的技巧 02 - 待填数还剩最后一个未填
[1/1]: 在格子R8C8中添加数字：4
Solved in 0.703s!
+-------+-------+-------+
| 8 7 2 | 6 3 1 | 9 5 4 |
| 5 1 3 | 7 4 9 | 6 8 2 |
| 4 6 9 | 2 8 5 | 1 7 3 |
+-------+-------+-------+
| 6 5 7 | 1 2 4 | 8 3 9 |
| 9 4 8 | 5 6 3 | 2 1 7 |
| 3 2 1 | 9 7 8 | 4 6 5 |
+-------+-------+-------+
| 1 9 4 | 8 5 7 | 3 2 6 |
| 2 8 5 | 3 9 6 | 7 4 1 |
| 7 3 6 | 4 1 2 | 5 9 8 |
+-------+-------+-------+[/code]

香川群子 · 发表于 2013-10-19 19:26

新华社北京10月15日体育专电(记者李江涛)第八届世界数独锦标赛15日在京揭晓各个奖项，年轻的中国代表队首次获得团体冠军，实现历史性突破，这标志着中国已跻身数独强国行列。

　　本届数独世锦赛由世界智力谜题联合会、北京广播电视台、北京奥运城市发展基金会、北京市体育总会和北京市昌平区政府共同主办、北京数独运动协会承办。比赛12日在京开幕，共有来自35个国家和地区的164名数独高手参赛。

　　经过两天紧张激烈的比赛，各项桂冠终有归属。中国队获得团体赛冠军，捷克、日本分获亚军、季军；中国队的三位中学生选手金策、孙彻然、邱言哲获18岁及18岁以下年龄组前三名；中国队梁跃获得50岁及50岁以上年龄组亚军，丹麦队和意大利队选手分获冠军和季军；金策还夺得个人赛冠军，日本的森西亨泰、捷克的雅库布分获亚军、季军。

yangyangzhifeng · 发表于 2013-10-20 20:19

我写了一个代码，求解Level-7用时0.188s

香川群子 · 发表于 2013-10-21 10:13

yangyangzhifeng 发表于 2013-10-20 20:19
我写了一个代码，求解Level-7用时0.188s

那是不是解其它的就更快了？

香川群子 · 发表于 2013-10-21 10:17

我的方法只是简单而已，速度肯定是最慢的。

用户名		自动登录	找回密码
密码			免费注册

[求助] 规求vba解数独游戏的源码