大家在學(xué)習(xí)VB.NET的時(shí)候，可能會(huì)發(fā)現(xiàn)其中文資料非常少，很難滿足廣大編程人員的需求。這就往往需要我們?cè)谝揽繒?shū)本以及不斷的實(shí)踐去積累應(yīng)用技巧，以達(dá)到學(xué)習(xí)的目的。那么今天要教給大家的是關(guān)于VB.NET冒泡排序的相關(guān)方法：#t#

VB.NET冒泡排序相關(guān)代碼示例：

1. Public Sub BubbleSort
   (ByVal R As Integer())  
2. Dim i, j, temp As Integer 

交換標(biāo)志

1. Dim exchange As Boolean  
2. For i = 0 To R.Length - 1 

本趟VB.NET冒泡排序開(kāi)始前，交換標(biāo)志應(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ā)生了交換，故將交換標(biāo)志置為真

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