題目來源：大工慕課 連結
作者：Caleb Sung

題目要求

編寫程式，實現如下規律的5*5矩陣存入陣列，並輸出該陣列

1       1       1       1       1
1       2       2       2       1
1       2       3       2       1
1       2       2       2       1
1       1       1       1       1

思路

經過觀察得知，方陣中每個元素的值為其下面四個屬性值中的最小的那個：

• 行數
• 列數
• 6-行數
• 6-列數

由此就可以寫出程式碼了。

參考解答

Private Sub Command1_Click()
    Dim a(1 To 6, 1 To 6) As Integer
    For i = 1 To 5
        For j = 1 To 5
            tmp = 99
            If i < tmp Then
                tmp = i
            End If
            If j < tmp Then
                tmp = j
            End If
 

            If 6 - i < tmp Then
                tmp = 6 - i
            End If
            If 6 - j < tmp Then
                tmp = 6 - j
            End If
            a(i, j) = tmp
        Next j
    Next i

    For i = 1 To 5
        For j = 1 To 5
            Picture1.Print Tab(j * 5); a(i, j);
        Next
 
 j
        Picture1.Print
    Next i
End Sub

執行結果

點一下顯示按鈕：