Imports System
Imports System.Linq
Public Module Module1
Public Sub Main()
Dim arr() As Integer = {1, 3, 7, 9, 2, 8, 5, 4}
Dim max As Integer = arr.Skip(1).Take(4).Max
Console.WriteLine(max)
Dim min As Integer = arr.Skip(1).Take(4).Min
Console.WriteLine(min)
End Sub
End Module
' run:
'
' 9
' 2
'