作者：绿色风
分类：
时间：2022-08-17
浏览：122
楼主
liuguansky |
Q：如何生成四偶阶魔方？即阶数可以被4整除的魔方。
A：可以用以下思路来进行生成：
[将左上区域i+j为偶数的与幻方内以中心点为对称点的右下角对角数字进行交换；将右上区域i+j为奇数的与幻方内以中心点为对称点的左下角对角数字进行交换。]
具体代码如下：
- Sub 四偶阶魔方()
- Dim arr, i%, m%, n%, s%, k%
- i = Application.InputBox("请输入要形成的四偶阶魔方的阶灵长", "请输入四整倍数", 8)
- ReDim arr(1 To i, 1 To i)
- For n = 1 To i
- For m = 1 To i
- arr(n, m) = (n - 1) * i + m
- Next m, n
- For n = 1 To i \ 2
- For m = 1 To i \ 2
- If (m + n) Mod 2 = 0 Then
- s = arr(n, m)
- arr(n, m) = arr(i + 1 - n, i + 1 - m)
- arr(i + 1 - n, i + 1 - m) = s
- End If
- Next m, n
- For n = 1 To i \ 2
- For m = i \ 2 + 1 To i
- If (m + n) Mod 2 = 1 Then
- s = arr(n, m)
- arr(n, m) = arr(i + 1 - n, i + 1 - m)
- arr(i + 1 - n, i + 1 - m) = s
- End If
- Next m, n
- With Cells(1, 1).Resize(i, i)
- .Value = arr
- .EntireColumn.AutoFit
- End With
- End Sub
具体示例文件如下：
 桌面.rar
友情链接 ：
[Excel VBA] 如何在表格中返回奇数维魔方阵？ http://www.exceltip.net/thread-12812-1-1.html
|
2楼
い卋玑┾宝珼 |
学习了 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一