VB 冒泡排序

'在此处放置初始化页的用户代码 'Dim arr As New ArrayList 'arr.Add("57171_36_100_2438_二楼D区_5_18") 'arr.Add("57171_35_100_2438_二楼D区_4_16") 'arr.Add("57171_35_100_2438_二楼D区_6_16") Dim str = "57171_36_100_2438_二楼D区_5_18|57171_35_100_2438_二楼D区_4_16|57171_35_100_2438_二楼D区_6_16|57171_36_100_2438_二楼D区_5_16" Dim arr As String() = Report.GetStrArray(str, "|") Dim temp As String For j As Integer = 1 To arr.Length - 1 For i As Integer = arr.Length - 1 To j Step -1 If CInt(Report.GetStrArray(arr(i), "_")(5)) < CInt(Report.GetStrArray(arr(i - 1), "_")(5)) Then temp = arr(i) arr(i) = arr(i - 1) arr(i - 1) = temp End If If CInt(Report.GetStrArray(arr(i), "_")(5)) = CInt(Report.GetStrArray(arr(i - 1), "_")(5)) Then If CInt(Report.GetStrArray(arr(i), "_")(6)) < CInt(Report.GetStrArray(arr(i - 1), "_")(6)) Then temp = arr(i) arr(i) = arr(i - 1) arr(i - 1) = temp End If End If Next i Next j For i As Integer = 0 To arr.Length - 1 Response.Write(arr(i) & "<br/>") Next