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

Формулировка задачи:

Матрица А(n,n) хранится в одномерном массиве по строкам.Напечатать все элементы, расположенные над главной диагональю матрицы вместе с элементами диагонали по строкам (в виде треугольника). Вот примерный код для программы(выводит матрицу в виде треугольника,но не те эл-ты которые расположены над главной диагональю)

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

Подправьте пожалуйста..

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

textual
                            Листинг программы 
                        

                            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
                        