LINQ в Visual Basic

Module Demo
    Sub Main()
        Dim values = {1, 2, 3, 4, 5}
        Dim query = From value In values
                    Where value Mod 2 = 1
                    Select value * 3
        Console.WriteLine(String.Join(",", query))
    End Sub
End Module

Option Strict On
Namespace ReviewCase13_1
    Module Demo
        Sub Main()
            Dim reviewValues = {1, 3, 4, 5, 6}
            Dim reviewQuery = From value In reviewValues
                        Where value Mod 3 = 1
                        Select value * 7
            Console.WriteLine(String.Join(",", reviewQuery))
        End Sub
    End Module
End Namespace

Option Explicit On
Option Infer On
Namespace BoundaryCase13_1
    Module Demo
        Sub Main()
            Dim edgeValues = {1, 1, 2, 3, 4}
            Dim edgeQuery = From value In edgeValues
                        Where value Mod 1 = 1
                        Select value * 1
            Console.WriteLine(String.Join(",", edgeQuery))
        End Sub
    End Module
End Namespace

Module Demo
    Sub Main()
        Dim names = {"Ann", "Bob", "Christina"}
        Dim result = names.Where(Function(name) name.Length >= 3).
                           Select(Function(name) name.ToUpperInvariant())
        Console.WriteLine(String.Join("|", result))
    End Sub
End Module

Option Strict On
Namespace ReviewCase13_2
    Module Demo
        Sub Main()
            Dim reviewNames = {"Ann", "Bob", "Christina"}
            Dim reviewResult = reviewNames.Where(Function(name) name.Length >= 4).
                               Select(Function(name) name.ToUpperInvariant())
            Console.WriteLine(String.Join("|", reviewResult))
        End Sub
    End Module
End Namespace

Option Explicit On
Option Infer On
Namespace BoundaryCase13_2
    Module Demo
        Sub Main()
            Dim edgeNames = {"Ann", "Bob", "Christina"}
            Dim edgeResult = edgeNames.Where(Function(name) name.Length >= 2).
                               Select(Function(name) name.ToUpperInvariant())
            Console.WriteLine(String.Join("|", edgeResult))
        End Sub
    End Module
End Namespace

Class Order
    Public Property CustomerId As Integer
End Class
Class Customer
    Public Property Id As Integer
    Public Property Name As String
End Class
Module Demo
    Function Build(orders As IEnumerable(Of Order), customers As IEnumerable(Of Customer)) As IEnumerable(Of String)
        Return From o In orders
               Join c In customers On o.CustomerId Equals c.Id
               Select c.Name
    End Function
End Module

Option Strict On
Namespace ReviewCase13_3
    Class Order
        Public Property CustomerId As Integer
    End Class
    Class Customer
        Public Property Id As Integer
        Public Property Name As String
    End Class
    Module Demo
        Function Build(reviewOrders As IEnumerable(Of Order), reviewCustomers As IEnumerable(Of Customer)) As IEnumerable(Of String)
            Return From o In reviewOrders
                   Join c In reviewCustomers On o.CustomerId Equals c.Id
                   Select c.Name
        End Function
    End Module
End Namespace

Option Explicit On
Option Infer On
Namespace BoundaryCase13_3
    Class Order
        Public Property CustomerId As Integer
    End Class
    Class Customer
        Public Property Id As Integer
        Public Property Name As String
    End Class
    Module Demo
        Function Build(edgeOrders As IEnumerable(Of Order), edgeCustomers As IEnumerable(Of Customer)) As IEnumerable(Of String)
            Return From o In edgeOrders
                   Join c In edgeCustomers On o.CustomerId Equals c.Id
                   Select c.Name
        End Function
    End Module
End Namespace

Module Demo
    Sub Main()
        Dim values = New List(Of Integer) From {1, 2, 3}
        Dim query = values.Where(Function(v) v > 1)
        values.Add(4)
        Console.WriteLine(String.Join(",", query))
    End Sub
End Module

Option Strict On
Namespace ReviewCase13_4
    Module Demo
        Sub Main()
            Dim reviewValues = New List(Of Integer) From {1, 3, 4}
            Dim reviewQuery = reviewValues.Where(Function(v) v > 1)
            reviewValues.Add(5)
            Console.WriteLine(String.Join(",", reviewQuery))
        End Sub
    End Module
End Namespace

Option Explicit On
Option Infer On
Namespace BoundaryCase13_4
    Module Demo
        Sub Main()
            Dim edgeValues = New List(Of Integer) From {1, 1, 2}
            Dim edgeQuery = edgeValues.Where(Function(v) v > 1)
            edgeValues.Add(3)
            Console.WriteLine(String.Join(",", edgeQuery))
        End Sub
    End Module
End Namespace

Module Demo
    Function ActiveNames(users As IEnumerable(Of User)) As List(Of String)
        Return users.Where(Function(u) u.IsActive).
                     OrderBy(Function(u) u.Name).
                     Select(Function(u) u.Name).
                     ToList()
    End Function
End Module
Class User
    Public Property Name As String
    Public Property IsActive As Boolean
End Class

Option Strict On
Namespace ReviewCase13_5
    Module Demo
        Function ActiveNames(reviewUsers As IEnumerable(Of User)) As List(Of String)
            Return reviewUsers.Where(Function(u) u.IsActive).
                         OrderBy(Function(u) u.Name).
                         Select(Function(u) u.Name).
                         ToList()
        End Function
    End Module
    Class User
        Public Property Name As String
        Public Property IsActive As Boolean
    End Class
End Namespace

Option Explicit On
Option Infer On
Namespace BoundaryCase13_5
    Module Demo
        Function ActiveNames(edgeUsers As IEnumerable(Of User)) As List(Of String)
            Return edgeUsers.Where(Function(u) u.IsActive).
                         OrderBy(Function(u) u.Name).
                         Select(Function(u) u.Name).
                         ToList()
        End Function
    End Module
    Class User
        Public Property Name As String
        Public Property IsActive As Boolean
    End Class
End Namespace