基础排序

Public Class Sort    Public Property SortData As Integer()    ''' <summary>    ''' 选择排序    ''' </summary>    ''' <remarks></remarks>    Public Sub SelectSort()        Dim Temp As Integer        For first As Integer = 0 To SortData.Length - 1            For surname As Integer = first To SortData.Length - 1                If SortData(first) < SortData(surname) Then                    Temp = SortData(first)                    SortData(first) = SortData(surname)                    SortData(surname) = Temp                End If            Next        Next    End Sub    ''' <summary>    ''' 冒泡排序    ''' </summary>    ''' <remarks></remarks>    Public Sub BubbleSort()        Dim Temp As Integer        Dim ExitBool As Boolean        For first As Integer = 0 To SortData.Length - 1            ExitBool = True            For surname As Integer = 0 To SortData.Length - 1                If SortData(first) < SortData(surname) Then                    ExitBool = False                    Temp = SortData(first)                    SortData(first) = SortData(surname)                    SortData(surname) = Temp                End If            Next            If ExitBool Then Exit For        Next    End SubEnd Class