Сформировать новую матрицу путем обнуления всех элементов исходной матрицы на главной диагонали и ниже нее - VB

Option Explicit
 
Private Sub Form_Load()
    Dim A() As Single, N As Long, M As Long, i As Long, j As Long
    Me.AutoRedraw = True
    N = 8: M = 5
    ReDim A(N - 1, M - 1)
    Me.Print "ÈñõîäГ*Г*Гї Г¬Г*òðèöГ*:"
    For j = 0 To M - 1: For i = 0 To N - 1
        A(i, j) = Rnd * 99 + 1
        Me.Print Tab(i * 10); Format(A(i, j), "#0.00");
    Next: Next
    Me.Print Tab(0); "ÐåçóëüòГ*ГІ:"
    For j = 0 To M - 1: For i = 0 To N - 1
        If i <= j Then A(i, j) = 0
        Me.Print Tab(i * 10); Format(A(i, j), "#0.00");
    Next: Next
End Sub