Imports System

Imports System.Collections.Generic

Imports System.Linq

Public Module Module1

    Public Sub Main()

        Dim numbers() As Integer = RandomNumbers(8)

        Console.WriteLine(String.Join(", ", BubbleSort(numbers)))

    End Sub

​

    Private Function BubbleSort(ByVal values() As Integer) As Integer()

        'Declare placeholder variables to use in the iterations

        Dim temp As Integer

​

        For outterIndex As Integer = 0 To values.Length - 1

            For innerIndex As Integer = 0 To values.Length - 2

                If values(innerIndex) > values(innerIndex + 1) Then

                    temp = values(innerIndex + 1)

                    values(innerIndex + 1) = values(innerIndex)

                    values(innerIndex) = temp

                End If

            Next

        Next

​

        Return values

    End Function

​

    Private r As New Random()

    Private Function RandomNumbers(ByVal range As Integer) As Integer()

        'Throw an exception if the value is less than 1

        If range < 1 Then Throw New ArgumentOutOfRangeException("The range cannot be less than 1")

​

        'Return a collection of random numbers

        Return Enumerable.Range(1, range).Select(Function(i) r.Next()).ToArray()

    End Function

​

End Module