王峰炬

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

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

摘要：用API （GetAsyncKeyState）实现，在WIN 2K，XP 下有效： Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As IntegerPrivate Const VK_LSHI... 阅读全文

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