[开_90]八皇后游戏

sandyw · 发表于 2006-3-7 21:36

看到函数等那么多有趣的题目,想提高vba的关注率.以下是一个有趣的游戏,不知大家能否将答案解出来

八皇后问题是说，在一个8*8共64个格子上共要放8个“皇后”，且任两个不能同行，同列，同斜线。
计算并表示每个解。
听说这是个典型问题，有很多很经典的解，有GS知道其它解法的请指教.

fliefn68.rar (5.74 KB, 下载次数: 93)

将八个皇后放置在单元格内并将该单元格的底色置为不同的颜色.

northwolves · 发表于 2006-3-8 09:43

我先发一个:

iy0MjpDG.rar (12.41 KB, 下载次数: 155)

sandyw · 发表于 2006-3-8 22:54

northwolves的思路不错.先收下

sailorgg · 发表于 2006-3-9 09:25

这是一个经典的编程题目，以下是我以前学编的一个N 皇后问题的一种解法，供大家参考。

EZ40tNcZ.rar (9.77 KB, 下载次数: 71)

清风_ll · 发表于 2006-3-9 14:03

HfwG1R0a.rar (15.63 KB, 下载次数: 51)

northwolves · 发表于 2006-3-9 14:35

开个玩笑,这个也算对吧?

Private Sub CommandButton1_Click()
Const result As String = "13D58B17ACCC19DE621A72EA2EF4343305EB3331EA3467D437A0F4395F033A70EA3E8533434E5D50F19D53067D53B18D54CE3354E0FC54E83B57898B57963458F81D58FAC45DE14C627395667A16672BC467CC1567D0A67443D6779C147973057A1A177C2A747E218D83B39585DE86878795885E5E98BE1598D41F9D854EA8785EAA60CFAA70CEAF050F"
Dim num As Byte, i As Byte, temp As String
Randomize
num = Int(Rnd * 92 + 1)
temp = Oct("&H" & Mid(result, (46 - Abs(num - 46)) * 6 - 5, 6)) + 11111111
If num > 46 Then temp = StrReverse(temp)
MsgBox "发现了92个解,现在显示第" & num & "个!"
Range("b4:i11").Interior.ColorIndex = 6
For i = 1 To 8
Cells(i + 3, Val(Mid(temp, i, 1) + 1)).Interior.ColorIndex = 7 + i
Next
End Sub

山菊花 · 发表于 2006-3-9 20:58

勉强做了一个，不如northwolves做得好。

XFxC3Fqj.rar (14.58 KB, 下载次数: 38)

sandyw · 发表于 2006-3-9 21:22

以下是引用山菊花在2006-3-9 20:58:33的发言：

勉强做了一个，不如northwolves做得好。

我的想法跟做法跟菊花兄差不多

清风大师和northwolves的解法差不多.厉害厉害.

[此贴子已经被作者于2006-3-9 21:36:43编辑过]

寂靜清茶 · 发表于 2006-3-16 16:42

看來來這兒學習真對了!

jsxjd · 发表于 2013-5-5 21:09

爆破法：8的阶乘的平方种，对每种进行判断，当然可以去掉对称的
递归法：先在64格中选一格，然后划掉横线、竖线、斜线，再在剩下的格子中选一个，如此循环往返，无法选时回溯。

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

[Excel 程序开发] [开_90]八皇后游戏