Найти максимальное и минимальное по модулю значение элемента массива

Dim a(6) as Integer = {-3, 5, 2, 12, -6, 1, 17}
Dim i as Integer
Dim mx as Integer = 0
Dim mn as Integer = 0
For i = 0 To a.Length - 1
    If Math.Abs(a(i)) > mx Then mx = a(i)
    If Math.Abs(a(i)) < mn Then mn = a(i)
Next i
Console.WriteLine(mx / mn)

Dim a() As Integer = {-3, 5, 2, 12, -6, 1, 17}
        MessageBox.Show(String.Format("Min: {0}, Max: {1}", a.Min, a.Max()))

Dim a() As Integer = {-3, 5, 2, 12, -6, 1, 17}
MessageBox.Show(String.Format("Min: {0}, Max: {1}", Math.Abs(a.Min), Math.Abs(a.Max)))
MsgBox(Math.Abs(a.Min) / Math.Abs(a.Max), , "max\min")

Dim a() As Integer = {-3, 5, 2, 12, -6, -1, 17}
MessageBox.Show(String.Format("Min: {0}, Max: {1}", a.Min(Function(x) Math.Abs(x)), a.Max(Function(x) Math.Abs(x))))

Dim a(6) as Integer = {-3, 5, 2, 12, -6, 1, 17}
Dim i as Integer
Dim mx as Integer = 0
Dim mn as Integer = 0
For i = 0 To a.Length - 1
    If Math.Abs(a(i)) > mx Then mx = a(i)
    If mn = 0 Then mn = a(i)
    If Math.Abs(a(i)) < mn Then mn = a(i)
Next i
Console.WriteLine(mx / mn)

Dim a(6) as Integer = {-3, 5, 2, 12, -6, 1, 17}
Dim i as Integer
Dim mx as Integer
Dim mn as Integer
For i = 0 To a.Length - 1
    If i = 0 Then
        mx = a(i)
        mn = a(i)
    End If
    If Math.Abs(a(i)) > mx Then mx = a(i)
    If Math.Abs(a(i)) < mn Then mn = a(i)
Next i
Console.WriteLine(mx / mn)

Dim a() As Integer = {-3, 5, 2, 12, -6, 1, 17}
Dim i As Integer
Dim mx As Integer = Integer.MinValue
Dim mn As Integer = Integer.MaxValue
For i = 0 To a.Length - 1
    'ищем среди абсолютных значений элементов массива
    mx = Math.Max(mx, Math.Abs(a(i)))
    mn = Math.Min(mn, Math.Abs(a(i)))
Next i
MsgBox("max=" & mx.ToString & vbCrLf & "min=" & mn.ToString)

Sub Main()
        Dim a() As Integer = {-3, 5, 2, 12, -6, -1, 17}
        Dim i As Integer
        Dim mx As Integer = a(0)
        Dim mn As Integer = a(0)
        For i = 1 To a.Length - 1
            If Math.Abs(mn) > Math.Abs(a(i)) Then mn = a(i)
            If Math.Abs(mx) < Math.Abs(a(i)) Then mx = a(i)
        Next i
        Console.WriteLine("Max = " & mx)
        Console.WriteLine("Min = " & mn)
        If mn <> 0 Then
            Console.WriteLine("Max/Min = " & mx / mn)
        Else
            Console.WriteLine("Деление на 0")
        End If
        Console.ReadLine()
    End Sub

Dim lambda As Func(Of Integer(), Integer, Integer, Integer) = Function(b, Index, CurrentMin) If(Index = b.Length, CurrentMin, If(Math.Abs(b(Index)) < Math.Abs(CurrentMin), lambda(b, Index + 1, b(Index)), lambda(b, Index + 1, CurrentMin)))
' Использование: массив, индекс, с которого нужно начинать проверку, первый элемент в массиве
Console.WriteLine(lambda(a, 0, a(0)))