Question

How to implement the bubble sort algorithm in VB.NET

Answer 1

Imports System

Public Class Program
    Public Shared Sub bubbleSort(ByVal arr As Integer())
        Dim len As Integer = arr.Length

        For i As Integer = 0 To len - 1 - 1

            For j As Integer = 0 To len - i - 1 - 1

                If arr(j) > arr(j + 1) Then
                    Dim temp As Integer = arr(j)
                    arr(j) = arr(j + 1)
                    arr(j + 1) = temp
                End If
            Next
        Next
    End Sub

    Public Shared Sub Main()
        Dim arr As Integer() = {6, 8, 0, 9, 3, 1, 6, 4}
        bubbleSort(arr)

        For Each n As Integer In arr
            Console.Write("{0} ", n)
        Next
    End Sub
End Class



' run:
'
' 0 1 3 4 6 6 8 9
'

 

70+ SQL courses for beginners and professionals