Algoritma Bubble Sort & Bubble Sort Asc_Desc

Algoritma Bubble Sort
Imports System.Console
Module Bubble_Sort
    Sub main()
        WriteLine(StrDup(30, "-"))
        WriteLine("Bubble_Sorting")
        WriteLine(StrDup(30, "-"))
        Dim input, swap As Integer
        Write("Masukkan Berapa Banyak Data = ") : input = ReadLine()
        Dim arr(input - 1) As Integer
        For i = 0 To input - 1
            Write("Data ke - " & i + 1 & " : ")
            arr(i) = ReadLine()
        Next



        For x = 0 To input - 1
            Write(arr(x) & " ")
        Next
        WriteLine()
        Write(vbCrLf)

        For i = 0 To input - 2
            For j = 0 To input - i - 2
                If (arr(j) > arr(j + 1)) Then
                    swap = arr(j)
                    arr(j) = arr(j + 1)
                    arr(j + 1) = swap

                    For x = 0 To input - 1
                        Write(arr(x) & " ")
                    Next
                    Write(vbCrLf)
                End If
            Next
        Next


        ReadKey()
    End Sub


End Module

Algoritma Bubble Sort Asc_Desc

Imports System.Console

Module Bubble_sort_ASC_DESC

    Sub main()

        WriteLine(StrDup(40, "-"))

        WriteLine("Bubble_Sorting:Ascending & Descending")

        WriteLine(StrDup(40, "-"))

        Dim arr() As Integer = {1, 5, 3, 8, 7, 4, 9}

        Dim swap As Integer

        For i = 0 To arr.Length - 1

            WriteLine("Data ke - " & i + 1 & " : " & arr(i))

        Next

        For x = 0 To arr.Length - 1

            Write(arr(x) & " ")

        Next

        Write(vbCrLf)

        WriteLine()

        WriteLine("Proses Ascending")

        For i = 0 To arr.Length - 2

            For j = 0 To arr.Length - i - 2

                If (arr(j) > arr(j + 1)) Then

                    swap = arr(j)

                    arr(j) = arr(j + 1)

                    arr(j + 1) = swap

                    For x = 0 To arr.Length - 1

                        Write(arr(x) & " ")

                    Next

                    Write(vbCrLf)

                End If

            Next

        Next

        WriteLine()

        WriteLine("Proses Descending")

        For i = 0 To arr.Length - 2

            For j = 0 To arr.Length - i - 2

                If (arr(j + 1) > arr(j)) Then

                    swap = arr(j + 1)

                    arr(j + 1) = arr(j)

                    arr(j) = swap

                    For x = 0 To arr.Length - 1

                        Write(arr(x) & " ")

                    Next

                    Write(vbCrLf)

                End If

            Next

        Next

        ReadKey()

    End Sub

End Module