Pengurutan data dengan selection sort

Untuk Console.WriteLine sendiri digunukan untuk menampilkan sesuatu pada layar hasil project kita nanti atau lebih tepatnya pada tampilan console nya . Dim digunakan untuk mendeklarasikan suatu variabel tertentu , untuk diaatas kita menggunakan Integer yang di gunakan untuk variabel angka atau value , jika non angka biasanya menggunakan String . untuk (4) sendiri berarti indeks dari variabel element akan sampai empat saja dan total nya ada 5 indeks yaitu indeks 0 sampai indeks 4 .
ketika batas kurang dari 5 maka pada setiap indeks di variabel element ( dimulai dari element indeks 0 ya seperti yang saya jelaskan diatas ) maka batas akan ditambahkan 1 dan terus sampai indeks terakhir pada element yaitu indeks 4 . karena hanya ada 4 indeks saja pada element 

Disini saya menggunakan Loop while lagi , yang akan melakukan perulangan terus menerus sampai kondisi tertentu . kondisi yang saya maksudkan bisa dilihat pada gambar diatas . Kita akan masuk ke tahap akhir

Selanjut nya setelah proses pembandingan dan pengurutan diatas , kita sampai ke proses untuk menampilkan hasil pengurutan tadi . yang dimana kita menggunakan Loop while lagi hingga Indeks kurang dari 5 atau lebih tepatnya sampai indeks 4 yang akan di tampilkan pada console vb nya

Script nya :

Module Module1

    Sub Main()
        Console.WriteLine("|||||||||||||||||||||||||||||||||||||")
        Console.WriteLine("| SELECTIONSORT BY PRABOWO SETIAWAN |")
        Console.WriteLine("|       NIM  : 119229068            |")
        Console.WriteLine("|      STMIK YADIKA BANGIL          |")
        Console.WriteLine("|||||||||||||||||||||||||||||||||||||")
        Dim angka(4) As Integer
        Dim batas As Integer

        batas = 0

        While batas < 5

            Console.Write(" Masukkan Angka {0} :", batas + 1)
            Console.Write(" ")
            angka(batas) = Console.ReadLine()

            batas = batas + 1
        End While

        Dim posisi As Integer
        Dim posisi_pembanding As Integer

        While posisi < 5
            posisi_pembanding = posisi + 1
            While posisi_pembanding < 5
                'pengecekan 
                If angka(posisi) > angka(posisi_pembanding) Then
                    'ditukar
                    Dim sementara As Integer
                    sementara = angka(posisi)
                    angka(posisi) = angka(posisi_pembanding)
                    angka(posisi_pembanding) = sementara

                Else
                    'kosong

                End If
                posisi_pembanding = posisi_pembanding + 1
            End While
            posisi = posisi + 1
        End While
        Dim Indeks As Integer
        Console.WriteLine(" Hasil Dari Pengurutan Angka tersebut ... ")
        Console.Write(" ")
        Indeks = 0
        While Indeks < 5
            Console.Write(" ")
            Console.Write(angka(Indeks))
            Indeks = Indeks + 1
        End While
        Console.ReadLine()
    End Sub


End Module