vb冒泡排序法流程图_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) & "
")

Next