Module Module1

    Sub Main()
        Dim tab() As Integer = {1, 2, 4, 5, 56, 7, 78, 4}


        Dim zapytanie = From liczba In tab
                        Where liczba Mod 2 = 0
                        Select liczba


        For Each l In zapytanie
            Console.Write(" " & l)
        Next
        Console.WriteLine()

        tab(0) = 8
        tab(1) = 8

        For Each l In zapytanie
            Console.Write(" " & l)
        Next

        Console.ReadKey()
    End Sub

End Module