----------------------------------------------------------------------
Se precisar de ajuda para ajustar o código abaixo de acordo com as
suas necessidades, chama a gente no WhatsApp +55 (62) 98553-6711 (Osmar)
Ah, e se puder, faça uma DOAÇÃO de qualquer valor para nos ajudar
a manter o site livre de anúncios. Ficaremos eternamente gratos ;-)
Nosso PIX é: osmar@arquivodecodigos.com.br
----------------------------------------------------------------------
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
Link para compartilhar na Internet ou com seus amigos:
