如何在Visual Basic數組中存儲簡單的輪廓線？

Question

HI 如何在簡單的基本數組中存儲簡單的輪廓線？

示例：如果有一個5​​×5的陣列，所述邊緣= 100和陣列的中心= 110。然後：

100 100 100 100 100 

100 105 105 105 100 

100 105 110 105 100 

100 105 105 105 100 

100 100 100 100 100 

外環= 100，1個步驟內圈= 105然後中心= 110。

有沒有一個這樣做的通用程序？如果數組是偶數（如6 x 6），會發生什麼？ 6 x 6沒有中心和奇數。

謝謝！

Answer 1

這裏是一些代碼來創建數組：

Dim a(1 To 5, 1 To 5) As Integer 

Private Sub SetRing(lvl As Long, dimSize As Long, value As Long) 
    Call SetHValues(lvl, dimSize, value) 
    Call SetVValues(lvl, dimSize, value) 
End Sub 

Private Sub SetHValues(lvl As Long, dimSize As Long, value As Long) 
    Dim i As Long, k As Long 

    If lvl > (dimSize/2) + 1 Then Exit Sub 

    For i = lvl To dimSize - lvl + 1 
     ' horizontal values' 
     a(lvl, i) = value 
     a(dimSize - lvl + 1, i) = value 
    Next 
End Sub 

Private Sub SetVValues(lvl As Long, dimSize As Long, value As Long) 
    Dim i As Long, k As Long 

    If lvl > (dimSize/2) + 1 Then Exit Sub 

    For i = lvl To dimSize - lvl + 1 
     ' vertical values' 
     a(i, lvl) = value 
     a(i, dimSize - lvl + 1) = value 
    Next 
End Sub 

以及創建樣本數組，你會打電話：

Call SetRing(1, 5, 100) 
Call SetRing(2, 5, 105) 
Call SetRing(3, 5, 110)