输出螺旋矩阵(一)

输出这样的二维阵列:

1     2    3   4
12 13 14   5
11 16 15   6
10  9    8    7

 

Private Sub Command1_Click()
spiral 17
Debug.Print
spiral 18
End Sub

Sub spiral(ByVal n As Integer)
Dim temp() As Long, i As Long, j As Long, start As Long, maxlen As Long
ReDim temp(1 To n, 1 To n)
If n Mod 2 = 1 Then temp(n / 2 + 1, n / 2 + 1) = n ^ 2
For i = 1 To n / 2
start = 4 * (i - 1) * (n + 1 - i)
For j = i To n - i
temp(i, j) = start + j - i + 1
temp(j, n + 1 - i) = start + (n - 2 * i + 1) + j - i + 1
temp(n + 1 - i, n + 1 - j) = start + 2 * (n - 2 * i + 1) + j - i + 1
temp(n + 1 - j, i) = start + 3 * (n - 2 * i + 1) + j - i + 1
Next
Next
maxlen = Len(CStr(n * n)) + 1
For i = 1 To n
For j = 1 To n
Debug.Print Right(Space(maxlen) & temp(i, j), maxlen);
Next
Debug.Print
Next
End Sub

返回

   1     2      3     4      5      6      7     8     9     10    11    12   13   14   15   16  17
  64   65   66   67   68    69    70   71   72   73    74    75   76   77   78   79  18
  63 120 121 122 123 124 125 126 127 128 129 130 131 132 133  80  19
  62 119 168 169 170 171 172 173 174 175 176 177 178 179 134  81  20
  61 118 167 208 209 210 211 212 213 214 215 216 217 180 135  82  21
  60 117 166 207 240 241 242 243 244 245 246 247 218 181 136  83  22
  59 116 165 206 239 264 265 266 267 268 269 248 219 182 137  84  23
  58 115 164 205 238 263 280 281 282 283 270 249 220 183 138  85  24
  57 114 163 204 237 262 279 288 289 284 271 250 221 184 139  86  25
  56 113 162 203 236 261 278 287 286 285 272 251 222 185 140  87  26
  55 112 161 202 235 260 277 276 275 274 273 252 223 186 141  88  27
  54 111 160 201 234 259 258 257 256 255 254 253 224 187 142  89  28
  53 110 159 200 233 232 231 230 229 228 227 226 225 188 143  90  29
  52 109 158 199 198 197 196 195 194 193 192 191 190 189 144  91  30
  51 108 157 156 155 154 153 152 151 150 149 148 147 146 145  92  31
  50 107 106 105 104 103 102 101 100   99   98   97    96    95   94  93  32
  49  48     47    46   45   44   43    42   41   40   39   38    37    36   35  34  33

   1      2      3    4      5      6      7      8      9    10    11   12    13  14   15    16  17  18
  68   69   70   71    72   73   74    75    76   77   78   79    80   81   82    83  84  19
  67 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142  85  20
  66 127 180 181 182 183 184 185 186 187 188 189 190 191 192 143  86  21
  65 126 179 224 225 226 227 228 229 230 231 232 233 234 193 144  87  22
  64 125 178 223 260 261 262 263 264 265 266 267 268 235 194 145  88  23
  63 124 177 222 259 288 289 290 291 292 293 294 269 236 195 146  89  24
  62 123 176 221 258 287 308 309 310 311 312 295 270 237 196 147  90  25
  61 122 175 220 257 286 307 320 321 322 313 296 271 238 197 148  91  26
  60 121 174 219 256 285 306 319 324 323 314 297 272 239 198 149  92  27
  59 120 173 218 255 284 305 318 317 316 315 298 273 240 199 150  93  28
  58 119 172 217 254 283 304 303 302 301 300 299 274 241 200 151  94  29
  57 118 171 216 253 282 281 280 279 278 277 276 275 242 201 152  95  30
  56 117 170 215 252 251 250 249 248 247 246 245 244 243 202 153  96  31
  55 116 169 214 213 212 211 210 209 208 207 206 205 204 203 154  97  32
  54 115 168 167 166 165 164 163 162 161 160 159 158 157 156 155  98  33
  53 114 113 112 111 110 109 108 107 106 105 104 103 102 101 100  99  34
  52    51   50   49   48   47    46   45   44    43    42   41   40    39   38   37  36  35