METODE SELECTION SORT VB.NET

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim i, j, min, temp As Long
        Dim n As Integer = CInt(TextBox1.Text)
        Dim x(500000) As Long
        Dim flag As Boolean


        'textbox2.text = ("Start Time " & Hour(Now) & " " & Minute(Now) & " " & Second(Now))
        Dim start As Integer = Minute(Now)
        Dim start2 As Integer = Second(Now)


        ListBox1.Items.Clear()
        ListBox2.Items.Clear()
        For i = 0 To CInt(TextBox1.Text) - 1
            Randomize()
            x(i) = CInt(Math.Ceiling(Rnd() * 500000)) + 1
            ListBox1.Items.Add(x(i))
        Next

        ListBox2.Items.Clear()
        For i = 0 To n - 1
            min = i
            For j = i + 1 To n - 1
                If x(j) < x(min) Then
                    min = j
                End If
            Next
            If min <> i Then
                temp = x(i)
                x(i) = x(min)
                x(min) = temp
            End If
        Next

        For i = 0 To n - 1
            ListBox2.Items.Add(x(i))
        Next

        ' textbox3.text = ("End Time " & Hour(Now) & " " & Minute(Now) & " " & Second(Now))
        Dim end2 As Integer = Minute(Now)
        Dim end3 As Integer = Second(Now)
        Dim interval As Integer = end2 - start
        Dim interval2 As Integer = end3 - start2
        If interval > 0 Then
            interval2 = 60 - interval2
        End If

        TextBox4.Text = ("interval " & interval & " menit dan " & interval2 & " detik")


    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        '    function bs (v(),n,x)
        '    Dim bs, low, high As Integer
        '    bs = -1
        '    low = 1
        '    high = n

        '    Do While low <= high And bs = -1
        '        Mid = (low + high) \ 2
        '        If x = v(Mid) Then
        '            bs = Mid()
        '        ElseIf x < v(Mid) Then
        '            high = Mid() - 1
        '        Else
        '            low = Mid() + 1

        '        End If
        '    Loop
        'End Function
    End Sub


    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        'Function nf(ByVal n)
        '    Dim a, b, c, batas As Integer
        '    a = 0
        '    b = 1

        '    Do While A + B <= batas
        '        C = a + B
        '        A = b
        '        b = C
        '    Loop

        '    nf = c
        'End Function

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click


    End Sub
End Class