你可以搞个8层循环。
每个循环里，对外层循环没有占用的点进行条件分析，成立，进入下层；不成立，更换位置。
当然，这个思路简单，编程罗索。
采用“递归”方法，则思路麻烦，但简洁。

用穷举法，八个循环，每个控制一个皇后的位置，每个都丛1 到64，代表64个格。[em11]

谢谢~~ 我去试试~~

我有一个新发现：手工比计算机还简单！
第一步，画8*8的格子
第二步，随便方一个“皇后”，删掉同行、同列、45度斜线的所有鸽子；
        ………………
这样应该就可以了。
当然，用计算机这样模拟，也可以。

n 皇后要不要？
CLS
INPUT n
DIM a(n)
t# = TIMER
i = 1
WHILE i > 0
 a(i) = a(i) + 1
  IF a(i) > n THEN
   a(i) = 0
   i = i - 1
  ELSE
   f = -1
   FOR j = 1 TO i - 1
    IF a(i) = a(j) OR i + a(i) = j + a(j) OR i - a(i) = j - a(j) THEN f = 0: EXIT FOR
   NEXT j
  IF f = -1 THEN
   IF i = n THEN GOSUB 10: S = S + 1 ELSE i = i + 1
  END IF
 END IF
WEND
PRINT S, TIMER - t#
END
10
FOR k = 1 TO i
 PRINT USING "#"; a(k);
NEXT k
PRINT
RETURN