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

Формулировка задачи:

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

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

после чего у меня получилось 1 1 1 1 1 1 1 0 1 0 1 0 1 0 0 0 1 1 1 0 0 0 0 0 1 0 0 0 0 0 1 1 1 0 0 0 1 0 1 0 1 0 1 1 1 1 1 1 1 надо еще дописать что то ( не пойму что) что бы получилось по правилу....

Решение задачи: «Заполнить массив размерностью 7*7 по правилу:»

textual
                            Листинг программы 
                        

                            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
                        