заполнение главных диагоналей динамичного массива

[shopot]

Вообщем суть в следующем:
Дан динамичный массив, содержащий n строк и n столбцов, его нужно заполнить так, что бы в каждой из двух главных диагоналей были записаны единицы, а в остальных - 0.
Написал программу, в итоге у меня заполняется только одна диагональ, как заполнить вторую - не понимаю.
Вот код программы:

Sub pr()
Dim A(), i, j, n, s As Variant
s = ""
n = InputBox("Введите число")
ReDim A(1 To n, 1 To n)
For i = 1 To n
For j = 1 To n
If i = j Then
A(i, j) = 1
Else
A(i, j) = 0
End If
Next j
Next i
For i = 1 To n
For j = 1 To n
s = s + CStr(A(i, j)) + " "
Next j
s = s + Chr(10)
Next i
MsgBox s
End Sub

[doober]

возможно так

If i = j Or i = n - j + 1 Then
A(i, j) = 1
Else
A(i, j) = 0
End If
Next j
Next i

[shopot]

Огромное спасибо, оказывается всё намного проще, а я голову полтора часа ломал