В произвольном одномерном массиве поменять местами максимальный и минимальный элементы

Dim r As New Random()
Dim n As Integer = 10
' Массив случайных чисел
Dim a() As Integer = (Enumerable.Range(1, n).Select(Function(item) r.Next(10))).ToArray()
MsgBox(String.Join(vbCrlF, a.Select(Function(x) x.ToString).ToArray()))
 
' минимум и максимум
Dim f = a.Select(Function(item, index) New With{item, index})
Dim iMin As Integer = (From x In f Where x.item = f.Min(Function(item) item.item) Select x.index).ToArray()(0)
Dim iMax = (From x In f Where x.item = f.Max(Function(item) item.item) Select x.index).ToArray()(0)
Dim t As Integer = a(iMin)
a(iMin) = a(iMax)
a(iMax) = t
MsgBox(String.Join(vbCrlF, a.Select(Function(x) x.ToString).ToArray()))

Dim arr() As Double = {1.9, 2, 8, 4, 5.7, 6, 7.2, 1.6}
        Dim indMin As Integer = Array.IndexOf(arr, arr.Min)
        Dim indMax As Integer = Array.IndexOf(arr, arr.Max)
 
        Dim tmp As Double = arr(indMax)
        arr(indMax) = arr(indMin)
        arr(indMin) = tmp

Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim arr() As Double = {1.6, 1.9, 2, 8, 4, 5.7, 6, 7.2}
        Dim indMin As Integer = Array.IndexOf(arr, arr.Min)
        Dim indMax As Integer = Array.IndexOf(arr, arr.Max)
        MsgBox(Array.IndexOf(arr, arr.Min) & "    " & "исходный min")  ' исходный номер индекса минимального числа в массиве  (0), отсчет начинается с "0"
        MsgBox(Array.IndexOf(arr, arr.Max) & "    " & "исходный max")  ' исходный номер индекса максиимального числа в массиве  (3), отсчет начинается с "0"
        Dim tmp As Double = arr(indMax)
        arr(indMax) = arr(indMin)
        arr(indMin) = tmp
        MsgBox(Array.IndexOf(arr, arr.Min) & "    " & "измененный min") ' измененный номер индекса минимального числа в массиве  (3), отсчет начинается с "0"
        MsgBox(Array.IndexOf(arr, arr.Max) & "    " & "измененный max") ' измененный номер индекса максиимального числа в массиве  (0), отсчет начинается с "0"
 
        End
    End Sub
        
End Class

Public Class Form1
    Private MyArray(49, 9) As Integer
    Private Sub Button1_Click() Handles Button1.Click
        Randomize()
        Dim RND As New Random
        Dim i As Integer
        Dim j As Integer
        For i = 0 To 49
            For j = 0 To 9
                MyArray(i, j) = RND.Next(0, 100)
            Next
        Next
 
        MsgBox("Массив 50х100 заполнен")
    End Sub
End Class

' Массив случайных чисел
Dim a() As Integer = (Enumerable.Range(1, 100).Select(Function(x) (New Random).Next(100))).ToArray()

MsgBox(String.Join(vbCrlF, a.Select(Function(x) x.ToString).ToArray()))

Dim r As New Random
Dim a() As Integer = (Enumerable.Range(1, 50).Select(Function(x) r.Next(100))).ToArray()