coding by vbs in excel
-----
N * N的矩陣 , 每一列與及每一行,二條對角線皆相等的處理方式..
N必需為奇數
循著起使點1 ,逐右上的方式填入2.3.4...
可以從小的模型裡面,觀察到,為N的倍數時,就會遇到該空隔被填過的況,所以要下移一隔
再重新填入數字..
----
Sub MagicMatrix()
'
' MagicMatrix 巨集
'
Dim n As Integer
n = 5
iniMatrix (n)
Dim i, j, k, kk As Integer
Dim i1, j1, k1 As Integer
生活大小事 (6)