Como testar se uma matriz é uma Matriz Triangular Superior em VB.NET - Desafio de Programação Resolvido em VB.NET

Número de linhas e colunas da matriz: 3

Valor para a linha 0 e coluna 0: 8
Valor para a linha 0 e coluna 1: 2
Valor para a linha 0 e coluna 2: 3
Valor para a linha 1 e coluna 0: 0
Valor para a linha 1 e coluna 1: 3
Valor para a linha 1 e coluna 2: 9
Valor para a linha 2 e coluna 0: 0
Valor para a linha 2 e coluna 1: 0
Valor para a linha 2 e coluna 2: 2

Valores na matriz

    8     2     3 
    0     3     9 
    0     0     2 

A matriz é uma matriz triangular superior

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' vamos pedir a ordem da matriz
    Console.Write("Número de linhas e colunas da matriz: ")
    Dim ordem As Integer = Int32.Parse(Console.ReadLine())

    ' vamos declarar uma matriz 3x3
    Dim matriz(ordem - 1, ordem - 1) As Integer

    ' vamos pedir para o usuário informar os valores
    ' dos elementos da matriz, uma linha de cada vez
    Console.WriteLine()
    For i As Integer = 0 To matriz.GetUpperBound(0)
      For j As Integer = 0 To matriz.GetUpperBound(1)
        Console.Write("Linha " & (i + 1) & " e coluna " &
          (j + 1) & ": ")
        ' lê o número e guarda na linha e coluna especificadas
        matriz(i, j) = Integer.Parse(Console.ReadLine())
      Next
    Next

    ' vamos mostrar a matriz da forma que ela foi informada
    Console.WriteLine(vbCrLf & "Valores na matriz: " & vbCrLf)

    For i As Integer = 0 To matriz.GetUpperBound(0)
      For j As Integer = 0 To matriz.GetUpperBound(1)
        Console.Write(matriz(i, j).ToString().PadLeft(5) & "  ")
      Next
      ' passa para a próxima linha
      Console.WriteLine()
    Next

    ' agora vamos testar se a matriz é uma matriz triangular
    ' superior
    Dim triangular_superior As Boolean = True

    For i As Integer = 0 To matriz.GetUpperBound(0)
      For j As Integer = 0 To matriz.GetUpperBound(1)
        ' a condição para que a matriz seja triangular superior é
        ' que os elementos abaixo da diagonal principal sejam
        ' iguais a zero
        If ((j < i) And (matriz(i, j) <> 0)) Then
          triangular_superior = False
        End If
      Next
    Next

    If (triangular_superior) Then
      Console.WriteLine(vbCrLf & "A matriz é uma matriz triangular superior")
    Else
      Console.WriteLine(vbCrLf & "A matriz não é uma matriz triangular superior")
    End If

    Console.WriteLine(vbCrLf & "Pressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub

End Module