Mega Code Archive

 

Categories / VB.Net / LINQ

 

Indexed Take While

Imports System.IO Imports System.Reflection Imports System.Linq Imports System.Xml.Linq Public Class MainClass    Public Shared Sub Main         Dim numbers() As Integer = {5, 4, 1, 3, 9, 8, 6, 7, 2, 0}         Dim firstSmallNumbers = numbers.TakeWhile(Function(n, index) n >= index)         Console.WriteLine("First numbers not less than their position:")         For Each n In firstSmallNumbers             Console.WriteLine(n)         Next    End Sub End Class