Сортировка, перестановка максимального и минимального чисел - Visual Basic .NET

Формулировка задачи:

Написал код где рандомно выводится 10 чисел в диапазоне от 1 до 100

                    Листинг программы
                
 
                        
                          
                    
Public Class Form1
    Dim r As New Random
    Dim diapason  ' Диапазон от 1 до 100
    Dim random    ' Случайное число
    Dim kol       ' Кол-во чисел
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Label1.Text = ""
        diapason = Val(100)
        kol = Val(10)
        Randomize()
        For i = 1 To kol
            random = r.Next(1, diapason)
            Label1.Text += Str(random) + " "
        Next
    End Sub
End Class

Как сделать: 1) При нажатии на кнопку эти числа сортировались по возрастанию и по убыванию. 2) При нажатии на кнопку эти числа переставлялись местами. 3) При нажатии на кнопку находились Max и Min.

Решение задачи: «Сортировка, перестановка максимального и минимального чисел»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub test_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
    Dim diapason = 100
    Dim kol = 10
    Dim num(kol - 1) As Integer
    Dim r As New Random
    For i = 0 To kol - 1
        num(i) = r.Next(1, diapason)
    Next
    Dim num1a() As Integer = num.Clone
    Array.Sort(num1a) 'по возрастанию
    Dim num1b() As Integer = num1a.Clone
    Array.Reverse(num1b) 'по убыванию
    'Min/Max
    Dim numMax = num.Max
    Dim numMin = num.Min
    'показать результат
    MsgBox(String.Join(", ", num) & vbCrLf & String.Join(", ", num1a) & vbCrLf & String.Join(", ", num1a) & vbCrLf & numMax.ToString & ", " & numMin.ToString)
End Sub