輸出這樣的二維陣列:
1 2 3 4
12 13 14 5
11 16 15 6
10 9 8 7
分析:
填充如此一個n*n陣列 ,先觀察規律:
n=1
1
n=2
1 2
4 3
對于n*n陣列,可以先將1-4*n 填充四周,內部用一個(n-2)*(n-2) 的陣列加上4*(n-1)填充,
所以用遞歸比較直觀,代碼如下:
Private Sub Command1_Click()
Dim result() As Long, i As Long, maxlen As Long
For i = 1 To 18
maxlen = Len(CStr(i * i)) + 1
spiral i, result
For j = 0 To i ^ 2 - 1
If j Mod i = 0 Then Debug.Print
Debug.Print Right(Space(maxlen) & result(j), maxlen);
Next
Debug.Print
Next
End Sub
Sub spiral(ByVal n As Integer, ByRef result() As Long)
Dim temp() As Long, i As Long, j As Long
If n = 1 Then
ReDim result(0)
result(0) = 1
End If
If n = 2 Then
ReDim result(3)
result(0) = 1
result(1) = 2
result(2) = 4
result(3) = 3
End If
If n > 2 Then
ReDim result(n ^ 2 - 1)
For i = 1 To n - 1
result(i - 1) = i
result(i * n - 1) = i + n - 1
result(n * n - i) = i + 2 * (n - 1)
result(n * n - i * n) = i + 3 * (n - 1)
Next
spiral n - 2, temp
For i = 0 To (n - 2) ^ 2 - 1
result(n + 1 + n * (i \ (n - 2)) + i Mod (n - 2)) = temp(i) + 4 * (n - 1)
Next
End If
End Sub
輸出:
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
1
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
1
|
2
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
4
|
3
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
1
|
2
|
3
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
8
|
9
|
4
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
7
|
6
|
5
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
1
|
2
|
padding-right: 5.4pt; padding-left: 5.4pt; border-
分享到：
發表評論
ihuashao
最新評論
|
更多文章、技術交流、商務合作、聯系博主
微信掃碼或搜索：z360901061
微信掃一掃加我為好友
QQ號聯系： 360901061
您的支持是博主寫作最大的動力，如果您喜歡我的文章，感覺我的文章對您有幫助，請用微信掃描下面二維碼支持博主2元、5元、10元、20元等您想捐的金額吧，狠狠點擊下面給點支持吧，站長非常感激您！手機微信長按不能支付解決辦法：請將微信支付二維碼保存到相冊，切換到微信，然后點擊微信右上角掃一掃功能，選擇支付二維碼完成支付。
【本文對您有幫助就好】元
評論