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