Module Module1
Sub Main()
Dim arr() As Integer = CreateArray(25, 0, 100)
Dim lBound As Integer = 20
Dim uBound As Integer = 70
Dim foundItems() As Integer = Array.FindAll(arr, Function(x) x >= lBound And x <= uBound)
For i As Integer = 0 To foundItems.Length - 1
Console.Write("{0} ", foundItems(i))
Next
End Sub
Private Function CreateArray(total_elements As Integer,
lower As Integer, upper As Integer) As Integer()
Dim rnd As New Random()
Dim list As New List(Of Integer)
For i As Integer = 1 To total_elements
list.Add(rnd.Next(lower, upper + 1))
Next
Return list.ToArray()
End Function
End Module
' run:
'
' 33 51 64 28 64 65 55 56 28 54
