Question

How to display the upper triangular matrix in VB.NET

Answer 1

Imports System

Public Class Program
	Public Shared Sub printUpperTriangular(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}}
        printUpperTriangular(matrix)
    End Sub
End Class




' run:
'
' 1 2 3 
' 0 5 6 
' 0 0 9
'

 

Cleaner teeth, healthier you!
Get The Secret to a Bright and Healthy Smile