Visual Basic 9之查找数组中的偶数

Module LinqHand1 Module LinqHand1

    ''' <summary>
    ''' 查找数组中的偶数
    ''' </summary>
    ''' <remarks></remarks>
    Sub NumQuery()Sub NumQuery()
        '定义数组
        Dim numbers() As Integer = {1, 4, 2, 7, 8, 9}
        '使用Linq语法查询
        Dim evenNumbers = From num In numbers Where num Mod 2 = 0 Select num
        '输出
        Console.WriteLine("Result:")
        For Each number In evenNumbers
            Console.WriteLine(number)
        Next
        Console.ReadLine()
    End Sub

    Sub Main()Sub Main()
        NumQuery()
    End Sub
End Module