1、
Dim lst As List(Of Integer) = Args(0)Dim n As Integer = lst.countDim i,j,temp As Integer
For i = 0 To n -1 For j = 0 To n -1-i If lst(j) > lst(j+1) Then temp = lst(j) lst(j) = lst(j+1) lst(j+1) = temp End If NextNext