Вывести на экран массив (матрицу) по образцу - VB

Private Sub Command1_Click()
Dim A(5, 5) As Integer, i As Integer, j As Integer
Cls
For i = 0 To 4
  For j = 0 To 4
      A(i, j) = 5 - (i + j)
      If A(i, j) < 0 Then A(i, j) = 0
      Print vbTab; A(i, j);
  Next j
  Print
Next i