Напечатать все элементы, расположенные над главной диагональю матрицы вместе с элементами диагонали по строкам

Option Explicit
 
 
Private Sub Command1_Click()
Dim A() As Integer
Dim n As String, i As Integer, j As Integer
Randomize Timer
n = InputBox("Введите размерность массива", "Массив")
If IsNumeric(n) = True And CVar(n) > 0 Then
    Cls
    ReDim A(1 To CInt(n), 1 To CInt(n))
    Print "Размерность:" + " "; n
    Print
    Print "Массив:"
    Print
    For i = 1 To n
        For j = 1 To n
            A(i, j) = Rnd * 10 - 5
            Print A(i, j);
            Print vbTab;
        Next j
        Print
    Next i
    Print
    For i = 1 To n
    For j = 1 To n
    If i <= j Then
    Print A(i, j);
    Print vbTab;
    End If
    Next j
    Print
    Next i
  End If
  End Sub

Option Explicit
 
 
Private Sub Command1_Click()
Dim A() As Integer
Dim n As Integer, i As Integer, j As Integer
Randomize Timer
n = InputBox("Введите размерность массива", "Массив")
If IsNumeric(n) = True And CVar(n) > 0 Then
  Cls
  ReDim A(1 To CInt(n), 1 To CInt(n))
  Print "Размерность:" + " "; n
  Print
  Print "Массив:"
  Print
  
    For i = 1 To n
        For j = 1 To n
            A(i, j) = Rnd * 10 - 5
            Print A(i, j); vbTab;
        Next j
        Print
    Next i
    
  Print
  
    For i = 1 To n
         For j = 1 To n
             If j >= i Then
                  Print A(i, j); vbTab;
             Else
                  Print vbTab;
             End If
         Next j
         Print
    Next i
    
  End If
  End Sub