решить матрицу

[lalalalala]

111111111...
011111110...
001111100...
000111000...
000010000...
000111000...
001111100...
011111110...
111111111...
вобщем по бокам от диагоналей должны быть 0,а остальные единицы
Помогите пожалуйста

[lalalalala]

Сообщение от lalalalala

111111111...
011111110...
001111100...
000111000...
000010000...
000111000...
001111100...
011111110...
111111111...
вобщем по бокам от диагоналей должны быть 0,а остальные единицы
Помогите пожалуйста

нужно написать программу!!! Спасибо заранне

[ZORRO2005]

Во вложении не программа, а игра с формулами.

[IgorGO]

Sub Matr()
  Dim i As Long, j As Long, n As Long, ar() As Long, v As Long
  n = Val(InputBox("Укажите число", "Задайте размер матрицы", 9))
  ReDim ar(1 To n, 1 To n) As Long
  For i = 1 To n
    For j = 1 To n
      v = IIf(i > (n + 1) / 2, n + 1 - i, i)
      If j < v Or n + 1 - j < v Then ar(i, j) = 0 Else ar(i, j) = 1
    Next
  Next
  [a1].CurrentRegion.ClearContents
  [a1].Resize(n, n).Value = ar
End Sub

[ShAM66]

Еще пара формульных вариантов.
2-я на основе формулы ZORRO2005, если нужно раскидать по отдельным ячейкам.