查人人中国名人网高达模型喷笔:VB 编程 幻阵
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/01 22:32:51
VB 编程 幻阵
编写打印n介幻镇程序，幻阵是由1-n^2个自然数组成的寄次方阵，方阵的每一行每一列及对角线上的元素和相等
如
492
357
816
编写打印n介幻镇程序，幻阵是由1-n^2个自然数组成的寄次方阵，方阵的每一行每一列及对角线上的元素和相等
如
492
357
816
奇数阶幻阵解法之一：
Option Base 1
Private Sub Form_Load()
Dim a()
Me.AutoRedraw = True
n = Val(InputBox(""))
i = (n + 1) / 2
j = n
ReDim a(n, n)
For k = 1 To n * n
a(i, j) = k
If i = n And j = n Then
j = j - 1
Else
i = i + 1
j = j + 1
If i = n + 1 Then i = 1
If j = n + 1 Then j = 1
End If
If a(i, j) <> 0 Then i = i - 1: j = j - 2
Next k
For i = 1 To n
For j = 1 To n
Print Tab(j * 5 - 4); a(i, j);
Next j
Print
Next i
End Sub
这不就是河洛图吗