奇数幻方
Sub test()                           
                             
Dim n As Integer, num As Integer, row, col As Integer, i As Integer, c As Integer                           
                             
Dim M() As Integer                           
                             
n = InputBox("请输入一个奇数：")                           
                             
If n Mod 2 = 0 Then                           
                             
    MsgBox "请输入一个奇数!"                           
                             
    Exit Sub                           
                             
End If                           
                             
ReDim M(n - 1, n - 1)                           
                             
num = n ^ 2                           
                             
row = 0                           
                             
col = (n - 1) \ 2                           
                             
i = 1                           
                             
Do While i <= num                           
                             
    If row = -1 Then row = n - 1                           
                             
    If col = n Then col = 0                           
                             
    M(row, col) = i                           
                             
    If i Mod n = 0 Then                           
                             
        row = row + 1                           
                             
    Else                           
                             
        row = row - 1                           
                             
        col = col + 1                           
                             
    End If                           
                             
    i = i + 1                           
                             
Loop                           
                             
[a1].Value = "输出幻方矩阵 n=" & n                           
                             
For i = 0 To n - 1                           
                             
    For c = 0 To n - 1                           
                             
        Cells(i + 2, c + 1) = M(i, c)                           
                             
    Next c                           
                             
Next i                           
                             
End Sub                           

谢谢a814153