Visual Basic 9之按数据类型查找数组

Module LinqHand3 Module LinqHand3

    ''' <summary>
    ''' 按数据类型查找数组
    ''' </summary>
    ''' <remarks></remarks>
    Sub OperatorQuery()Sub OperatorQuery()
        '定义含有多个数据类型的数组
        Dim values() = {1, "ant", 2, "x", 3, True, 4}
        '筛选出当中是整形的数据，并返回一个数组
        Dim results = values.OfType(Of Integer)()
        Console.WriteLine("Results:")

        For Each result In results
            Console.WriteLine(result)
        Next

        Console.ReadLine()

    End Sub

    Sub Main()Sub Main()
        OperatorQuery()
    End Sub

End Module