Imports System
Public Class Program
Public Shared Sub printLowerTriangular(ByVal matrix As Integer(,))
Dim rows As Integer = matrix.GetLength(0)
Dim cols As Integer = matrix.GetLength(1)
For i As Integer = 0 To rows - 1
For j As Integer = 0 To cols - 1
If i < j Then
Console.Write("0" & " ")
Else
Console.Write(matrix(i, j) & " ")
End If
Next
Console.WriteLine()
Next
End Sub
Public Shared Sub Main()
Dim matrix As Integer(,) = {
{1, 2, 3},
{4, 5, 6},
{7, 8, 9}}
printLowerTriangular(matrix)
End Sub
End Class
' run:
'
' 1 0 0
' 4 5 0
' 7 8 9
'