Imports System

Imports System.Collections.Generic

​

​

Public Module Module1

​

    Public Sub Main()

        Dim lstNumbers as New List(Of String)()

        lstNumbers.Add("One")

        lstNumbers.Add("Two")

        lstNumbers.Add("Three")

        lstNumbers.Add("Four")

        lstNumbers.Add("Five")

        Dim MaxIndex = lstNumbers.Count-1

        Dim Tmp as String

        For LoopA = 0 to MaxIndex-1

        For LoopB = 0 to MaxIndex-1

        If lstNumbers(LoopB) > lstNumbers(LoopB+1) Then

            Tmp = lstNumbers(LoopB+1)

            lstNumbers(LoopB+1) = lstNumbers(LoopB)

            lstNumbers(LoopB) = Tmp

        End If

        Console.WriteLine("Loop A: " &LoopA)

        Console.WriteLine("Loop B: " &LoopB)

        For each listItem As String In lstNumbers

        Console.WriteLine("New order: " &listItem )

    Next

    Console.WriteLine("")

    Next LoopB

Next LoopA

​

End Sub

​

End Module

​