Видоизмените программу сортировки массива выбором так чтобы в ней использовалась процедура выбора наибольшего элемента массива.

    ' // Процедура сортировки алгоритмом выборки     Sub SelectionSort(ByRef array() As Integer, ByVal ToUpper As Boolean)         Dim Dump As Integer         Dim Index As Integer         Dim Work As Integer         Do             For i As Integer = Work To UBound(Array)                 If ToUpper = True Then                     If (Array(Index) > Array(i)) Then Index = i                 Else                     If (Array(Index) < Array(i)) Then Index = i                 End If             Next             Dump = Array(Index)             Array(Index) = Array(Work)             Array(Work) = Dump ' // c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535             Work += 1             Index = Work         Loop Until (Work > UBound(Array))     End Sub