幻方
northwolves
MS-VB-MVP
MS-EXCEL-MVP
展开
-
n阶幻方的填法(n≥3)
幻方,亦称纵横图。台湾称为魔术方阵。将自然数1,2,3,……n*n排列成一个n*n方阵,使得每行、每列以及两对角线上的各个数之和都相等,等于n/2*(n*n+1),这样的方阵称为幻方。例如:把1,2,3,4,5,6,7,8,9填入3*3的格子,使得:每行、每列、两条对角线的和是15。 8 1转载 2007-09-23 11:16:00 · 13254 阅读 · 1 评论 -
VBA实现任意n阶幻方的一种填法(n≥3)
参考http://blog.csdn.net/northwolves/archive/2007/09/23/1796696.aspx的思路,拟代码如下:Sub magicsquare(ByVal n As Long, ByRef matrix())Dim i As Long, j As Long, k As Long, p As Long, a(), b()ReDim matrix(1 To原创 2007-09-23 21:56:00 · 2088 阅读 · 0 评论 -
四阶素数幻方问题
用1到16构成一个四阶幻方,要求任意相邻两个方格中的数字之各均为素数? (原帖见:http://topic.csdn.net/u/20070830/18/1f1957c1-5e66-4c3b-8883-d7eef64c8da1.html)NowCan 网友的解法:直接递归搜,4阶很快的。以下这个程序就是这样的思路,结果未经过验证。 /* 将1-N^2这N^2个数添如N*N的方格中,每个原创 2007-10-01 17:02:00 · 2649 阅读 · 0 评论