Private Sub Command1_Click()
Dim a(5, 5) As Integer
For i = 1 To 5
For j = 1 To 5
a(i, i) = 1
a(i, 6 - i) = 1
Next j
Next i
Print a(i, j);
Print
End Sub
