Faça um algoritmo em VB.NET que leia 9 números inteiros, guarde-os em uma matriz 3x3 e mostre os números pares - Exercícios Resolvidos de VB.NET

Linha 1 e coluna 1: 8
Linha 1 e coluna 2: 1
Linha 1 e coluna 3: 5
Linha 2 e coluna 1: 3
Linha 2 e coluna 2: 9
Linha 2 e coluna 3: 30
Linha 3 e coluna 1: 7
Linha 3 e coluna 2: 23
Linha 3 e coluna 3: 10

Valores na matriz

    8     1     5 
    3     9    30 
    7    23    10 

Os valores pares são: 8 30 10

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

Imports System

Module Program
  Sub Main(args As String())
    ' vamos declarar uma matriz 3x3
    Dim matriz(2, 2) As Integer

    ' vamos pedir para o usuário informar os valores
    ' dos elementos da matriz, uma linha de cada vez
    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 percorrer a matriz novamente e mostrar
    ' apenas os valores pares
    Console.Write(vbCrLf & "Os valores pares são: ")

    For i As Integer = 0 To matriz.GetUpperBound(0)
      For j As Integer = 0 To matriz.GetUpperBound(1)
        ' é um número par?
        If matriz(i, j) Mod 2 = 0 Then
          Console.Write(matriz(i, j) & " ")
        End If
      Next
    Next

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