VB：编写程序，实现如下规律的5*5矩阵存入数组，并输出该数组

题目来源：大工慕课 链接
作者：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

运行结果

点一下显示按钮：