VB.NET冒泡排序相關(guān)算法詳解
作者：佚名
VB.NET冒泡排序這一排序算法在實際應(yīng)用中是經(jīng)常會用到的。它的應(yīng)用可以使編程人員輕松的實現(xiàn)數(shù)組的排序。下面就起來看看實際操作方法。
大家在學(xué)習(xí)VB.NET的時候，可能會發(fā)現(xiàn)其中文資料非常少，很難滿足廣大編程人員的需求。這就往往需要我們在依靠書本以及不斷的實踐去積累應(yīng)用技巧，以達到學(xué)習(xí)的目的。那么今天要教給大家的是關(guān)于VB.NET冒泡排序的相關(guān)方法：#t#
VB.NET冒泡排序相關(guān)代碼示例：
- Public Sub BubbleSort
(ByVal R As Integer()) - Dim i, j, temp As Integer
交換標志
- Dim exchange As Boolean
- For i = 0 To R.Length - 1
本趟VB.NET冒泡排序開始前，交換標志應(yīng)為假
- exchange = False
- For j = R.Length -
2 To 0 Step -1
交換條件
- If R(j + 1) < R(j) Then
- temp = R(j + 1)
- R(j + 1) = R(j)
- R(j) = temp
發(fā)生了交換，故將交換標志置為真
- exchange = True
- End If
- Next
本趟VB.NET冒泡排序未發(fā)生交換，提前終止算法
- If Not exchange Then
- Exit For
- End If
- Next
- End Sub
選擇VB.NET冒泡排序：
- Public Sub Sort()Sub Sort(ByVal list() As Integer)
- Dim min As Integer
- Dim i As Integer
- For i = 0 To list.Length - 1 - 1 Step +1
- min = i
- Dim j As Integer
- For j = i + 1 To list.Length - 1 Step +1
- If list(j) < list(min) Then
- min = j
- End If
- Next
- Dim t As Integer = list(min)
- list(min) = list(i)
- list(i) = t
- Next
- End Sub
責(zé)任編輯：曹凱
來源：
博客園
