northwolves[狼行天下] 的专栏

无知无惧,无欲无敌。

N皇后问题

题目:由八皇后问题扩展开来,即n*n的棋盘上摆放n个皇后,使其不能互相攻击,即任意两个皇后都不能处于同一行、同一列或同一斜线上,问有多少种摆法。分析:  问题可以转化为12345...n 的满足某种条件(行已不等,列亦不等,只需设定其不在同一斜线上,即斜率不为 1 或-1 )的排列.代码:Priv...

2004-08-09 17:35:00

阅读数:2134

评论数:3

谈谈五皇后问题

题目:在8×8格的国际象棋棋盘上摆放五个皇后,使其能攻击棋盘上的任何敌方棋子,有多少种摆法。分析:依然是一个组合问题。某个位置摆放一个“后”,则其所在行,所在列,所在对角线均属其控制范围,可用一个布尔型数组解决。代码:Option ExplicitSub getall(Optional ByRef...

2004-08-08 14:37:00

阅读数:2691

评论数:4

如何识别键盘左右的shift,Ctrl或Alt键

用API (GetAsyncKeyState)实现,在WIN 2K,XP 下有效:Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As IntegerPrivate Cons...

2004-08-03 18:21:00

阅读数:1895

评论数:0

在场景中输出横向或纵向压缩的中文字符

    今天参考一个外文代码写的:(作者:Steve McMahon   steve@vbaccelerator.com, 网址:  http://www.shitalshah.com/vbxlr/tips/vba0035.htm ) Private Const LF_FACESIZE = 32P...

2004-08-01 23:15:00

阅读数:1479

评论数:2

提示
确定要删除当前文章?
取消 删除
关闭
关闭