VB.Net 冒泡排序

前端之家收集整理的这篇文章主要介绍了VB.Net 冒泡排序前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

冒泡排序Bubble Sort,台湾译为:泡沫排序气泡排序)是一种简单的排序算法。它重复地走访过要排序的数列,一次比较两个元素,如果他们的顺序错误就把他们交换过来。走访数列的工作是重复地进行直到没有再需要交换,也就是说该数列已经排序完成。这个算法的名字由来是因为越小的元素会经由交换慢慢「浮」到数列的顶端。

冒泡排序对个项目需要O()的比较次数,且可以原地排序。尽管这个演算法是最简单了解和实作的排序算法之一,但它对于少数元素之外的数列排序是很没有效率的。

冒泡排序是与插入排序拥有相等的执行时间,但是两种法在需要的交换次数却很大地不同。在最坏的情况,冒泡排序需要次交换,而插入排序只要最多交换。冒泡排序的实现(类似下面)通常会对已经排序好的数列拙劣地执行(),而插入排序在这个例子只需要个运算。因此很多现代的演算法教科书避免使用冒泡排序,而用插入排序取代之。冒泡排序如果能在内部回圈第一次执行时,使用一个旗标来表示有无需要交换的可能,也有可能把最好的复杂度降低到。在这个情况,在已经排序好的数列就无交换的需要。若在每次走访数列时,把走访顺序和比较大小反过来,也可以稍微地改进效率。有时候称为往返排序,因为演算法会从数列的一端到另一端之间穿梭往返。

冒泡排序演算法的运作如下:

  1. 比较相邻的元素。如果第一个比第二个大,就交换他们两个。
  2. 对每一对相邻元素作同样的工作,从开始第一对到结尾的最后一对。在这一点,最后的元素应该会是最大的数。
  3. 针对所有的元素重复以上的步骤,除了最后一个。
  4. 持续每次对越来越少的元素重复上面的步骤,直到没有任何一对数字需要比较。

由于它的简洁,冒泡排序通常被用来对于程式设计入门的学生介绍演算法的概念。


自己理解的冒泡排序:

''' <summary>
''' 对IComparable接口类型进行冒泡排序
''' </summary>
<Extension()>
Public Sub BubbleSort(Of T As IComparable)(ByRef Array() As T)
    For i = 0 To Array.Count - 1
        For j = i + 1 To Array.Count - 1
            If Array(i).CompareTo(Array(j)) > 0 Then
                Dim Temp As T
                Temp = Array(i)
                Array(i) = Array(j)
                Array(j) = Temp
            End If
        Next
    Next
End Sub

标准版

Public Function bubbleSort(ByRef arr() As Integer) As Integer
    Dim i As Integer = arr.Count
    Dim temp,count As Integer
    While i > 0
        For j = 0 To i - 2
            If arr(j) > arr(j + 1) Then
                temp = arr(j)
                arr(j) = arr(j + 1)
                arr(j + 1) = temp
            End If
            count += 1
        Next
        i -= 1
    End While
    Return count
End Function

使用标志的冒泡排序

Public Function bubble_sort(ByVal d() As Integer) As Integer
    Dim exchange As Integer = d.Count - 1
    Dim count As Integer

    While exchange <> 0

        '记录下发生数据交换的位置
        Dim bound As Integer = exchange

        '假定本趟比较没有数据交换
        exchange = 0

        For i = 0 To bound - 1
            If d(i) > d(i + 1) Then

                '交换
                Dim t As Integer = d(i)
                d(i) = d(i + 1)
                d(i + 1) = t

                exchange = i + 1

                '增加比较次数
                count += 1
            End If
        Next
    End While
    Return count
End Function
原文链接:https://www.f2er.com/vb/259739.html

猜你在找的VB相关文章