Imports System

Public Module Module1

    Public Sub Main()

        for j=0 to 1 less (alist.getupperbound-1)

        for i=0 to alist.getupperbound-1

        if alist(i) < alist(i+1)

            temp= alist(i)

            alist(i)=alist(i+1)

            alist(i+1)= temp

        next

    End Sub

End Module