Статья: Использование интегрированных в язык запросов (linq) при обработке массива данных в microsoft visual basic 2008

Exit For

End If

Next

If isOutput = True Then Result.Add(Vector(i))

Next

LINQ подход

Dim Query = From element In Vector _

Select element Distinct

Вычисление количества отрицательных элементов в исходном множестве

Традиционный подход

Dim count As Integer = 0

For i As Integer = 0 To UBound(Vector)

If Vector(i) < 0 Then count += 1

Next

LINQ подход

Dim Result As Integer = Aggregate Element In Vector _

Where Element < 0 Into Count()

Вычисление среднего значения элементов исходного множества

Традиционный подход

Dim sum As Integer = 0

Dim average As Double = 0

Dim count As Integer = UBound(Vector) + 1

For i As Integer = 0 To count - 1

sum += Vector(i)

Next

average = sum / count

LINQ подход

Dim Result As Double = Aggregate Element In Vector _

Into Average()