输出螺旋矩阵(二)

输出这样的二维阵列:

1  3  4  10  11
2  5  9  12  19
6  8  13 18  20
7  14 17 21  24
15 16 22 23  25

 

Sub spiralmetrix(ByVal n As Integer)
n = n - 1
Dim i As Integer, j As Integer, a() As Integer
ReDim a(n, n)
a(0, 0) = 1
a(n, n) = (n + 1) ^ 2
For i = 1 To n
a(0, i) = a(0, i - 1) + IIf(i Mod 2 = 1, 2 * i, 1)
a(n, n - i) = (n + 1) ^ 2 + 1 - a(0, i)
a(i, 0) = a(i - 1, 0) + IIf(i Mod 2 = 1, 1, 2 * i)
a(n - i, n) = (n + 1) ^ 2 + 1 - a(i, 0)
Next

For i = 1 To n - 1
For j = 1 To n - 1
a(i, j) = a(i - 1, j + 1) + (-1) ^ (i - j)
Next
Next

Debug.Print "n=" & n + 1
For i = 0 To n
For j = 0 To n
Debug.Print Left(a(i, j) & Space(5), 5);
Next
Debug.Print
Next

End Sub

Private Sub Command1_Click()
Dim i As Integer
For i = 2 To 10
spiralmetrix i
Next
End Sub

输出:

n=2
1    3   
2    4   
n=3
1    3    4   
2    5    8   
6    7    9   
n=4
1    3    4    10  
2    5    9    11  
6    8    12   15  
7    13   14   16  
n=5
1    3    4    10   11  
2    5    9    12   19  
6    8    13   18   20  
7    14   17   21   24  
15   16   22   23   25  
n=6
1    3    4    10   11   21  
2    5    9    12   20   22  
6    8    13   19   23   30  
7    14   18   24   29   31  
15   17   25   28   32   35  
16   26   27   33   34   36  
n=7
1    3    4    10   11   21   22  
2    5    9    12   20   23   34  
6    8    13   19   24   33   35  
7    14   18   25   32   36   43  
15   17   26   31   37   42   44  
16   27   30   38   41   45   48  
28   29   39   40   46   47   49  
n=8
1    3    4    10   11   21   22   36  
2    5    9    12   20   23   35   37  
6    8    13   19   24   34   38   49  
7    14   18   25   33   39   48   50  
15   17   26   32   40   47   51   58  
16   27   31   41   46   52   57   59  
28   30   42   45   53   56   60   63  
29   43   44   54   55   61   62   64  
n=9
1    3    4    10   11   21   22   36   37  
2    5    9    12   20   23   35   38   53  
6    8    13   19   24   34   39   52   54  
7    14   18   25   33   40   51   55   66  
15   17   26   32   41   50   56   65   67  
16   27   31   42   49   57   64   68   75  
28   30   43   48   58   63   69   74   76  
29   44   47   59   62   70   73   77   80  
45   46   60   61   71   72   78   79   81  
n=10
1    3    4    10   11   21   22   36   37   55  
2    5    9    12   20   23   35   38   54   56  
6    8    13   19   24   34   39   53   57   72  
7    14   18   25   33   40   52   58   71   73  
15   17   26   32   41   51   59   70   74   85  
16   27   31   42   50   60   69   75   84   86  
28   30   43   49   61   68   76   83   87   94  
29   44   48   62   67   77   82   88   93   95  
45   47   63   66   78   81   89   92   96   99  
46   64   65   79   80   90   91   97   98   100