溫馨提示×
您好，登錄后才能下訂單哦！
點擊 登錄注冊 即表示同意《億速云用戶服務條款》
您好，登錄后才能下訂單哦！
今天就跟大家聊聊有關VB.NET中怎么實現(xiàn)冒泡排序，可能很多人都不太了解，為了讓大家更加了解，小編給大家總結了以下內容，希望大家根據(jù)這篇文章可以有所收獲。
VB.NET冒泡排序相關代碼示例：
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冒泡排序開始前，交換標志應為假
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
看完上述內容，你們對VB.NET中怎么實現(xiàn)冒泡排序有進一步的了解嗎？如果還想了解更多知識或者相關內容，請關注億速云行業(yè)資訊頻道，感謝大家的支持。
免責聲明：本站發(fā)布的內容（圖片、視頻和文字）以原創(chuàng)、轉載和分享為主，文章觀點不代表本網(wǎng)站立場，如果涉及侵權請聯(lián)系站長郵箱：is@yisu.com進行舉報，并提供相關證據(jù)，一經(jīng)查實，將立刻刪除涉嫌侵權內容。
