''' <summary>
''' 查找数组中长度小于7的所有项并输出
''' </summary>
Private Sub Sub3()
Dim strName As String() = New String() {"文道科技", "C#编程词典", "C#从基础到项目实战", "C#范例手册"}
Dim selectQuery As IEnumerable(Of String) = From Name In strName Where Name.Length < 7 Select Name
For Each str As String In selectQuery
Console.WriteLine(str)
Next
End Sub