Imports System
Imports System.Linq
Public Class Program
Public Shared Sub Main()
Dim arr As Integer() = New Integer() {2, 9, 4, 6, 1, 7, 3}
Dim min As Integer = arr.Min()
Dim max As Integer = arr.Max()
Console.WriteLine(min)
Console.WriteLine(max)
End Sub
End Class
' run:
'
' 1
' 9
'