Como retornar o maior elemento em cada uma das colunas de uma matriz usando VB.NET - Desafio de Programação Resolvido em VB.NET

6   10   4
2    9   7
20   3   1

Maior elemento na coluna 0 é 20
Maior elemento na coluna 1 é 10
Maior elemento na coluna 2 é 7

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' vamos declarar e constuir uma matriz de 3 linhas e três colunas
    Dim matriz As Integer(,) = {{6, 10, 4}, {2, 9, 7}, {20, 3, 1}}

    ' vamos percorrer a matriz e exibir o maior elemento de cada coluna
    ' começamos com cada coluna
    For i As Integer = 0 To matriz.GetLength(0) - 1
      ' assumimos que o maior valor é o primeiro dessa coluna
      Dim maior As Integer = matriz(0, i)
      ' percorremos todos os elementos desta linha
      For j As Integer = 0 To matriz.GetLength(0) - 1
        ' o elemento atual é maior que o maior?
        If matriz(j, i) > maior Then
          ' maior assume o valor atual
          maior = matriz(j, i)
        End If
      Next

      ' exibimos o maior elemento desta coluna
      Console.WriteLine("Maior elemento na coluna " & i & " é " & maior)
    Next

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

End Module