Заполнить массив размерностью 7*7 по правилу:

Sub prog1()
    For i = 1 To 7
        For j = 1 To 7
            Cells(i, j) = 0
        Next j
    Next i
For i = 1 To 7
Cells(i, i) = 1
Cells(i, 8 - i) = 1
Cells(1, i) = 1
Cells(7, i) = 1
Cells(i, 4) = 1
Next i

    For i = 1 To 7
        For j = 1 To 7
            Cells(i, j) = 0
        Next j
    Next i
    s = 1
    For i = 1 To 7
        If i = 5 Then
            s = -1
        End If
        For j = i To 7 - i + 1 Step s
            Cells(i, j) = 1
        Next j
    Next i

   d = 8
   For i = 1 To d
        For j = 1 To d
            Cells(i, j) = 0
        Next j, i
   
    For i = 1 To d + (d Mod 2)
        For j = i To d - i + 1
            Cells(i, j) = 1
            Cells(d - i + 1, j) = 1
        Next j, i

Dim m(6, 6) As Integer, i As Integer, j As Integer, s As String
For i = 0 To 6
For j = 0 To 6
If ((j <= 6 - i) And (i <= j)) Or ((j >= 6 - i) And (i >= j)) Then m(i, j) = 1
s = s & "  " & Str(m(i, j))
Next j
s = s & vbCrLf
Next i
Print s

For i = 1 To d + (d Mod 2)

For i = 1 To d
        For j = 1 To d
            Cells(i, j) = 0
        Next j, i
   
    For i = 1 To d/2 + (d Mod 2)
        For j = i To d - i + 1
            Cells(i, j) = 1
            Cells(d - i + 1, j) = 1
        Next j, i