Sub Sort(A)
　Dim u
　u = UBound(A) - 1

　Do While u >= 0
　　Dim p
　　p = -1

　　Dim i
　　For i = 0 To u
　　　If A(i) > A(i + 1) Then
　　　　Swap A(i), A(i + 1)
　　　　p = i
　　　End If
　　Next

　　u = p
　Loop
End Sub

Sub Swap(A, B)
　Dim T
　T = A
　A = B
　B = T
End Sub