ArrayList sort 排序 直接排序容易出错

未能比较数组中的两个元素

   '数据集排序，从小到大
    'DoubleCollectionSort
    ''' <summary>
    ''' 数据集排序，从小到大
    ''' </summary>
    ''' <param name="Dc"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Function HB9WQ3BLSE(ByVal Dc As ArrayList) As ArrayList
        Dim NewDc As ArrayList = Dc
        For i As Long = 0 To NewDc.Count - 1
            For j As Long = 0 To NewDc.Count - 1
                If NewDc.Item(j) < NewDc.Item(i) Then
                    Dim Temp As Double = NewDc(j)
                    NewDc(j) = NewDc(i)
                    NewDc(i) = Temp
                End If
            Next
        Next
        Return NewDc
    End Function

分享到： QQ空间 新浪微博 腾讯微博 微信 更多

发表评论 - 不要忘了输入验证码哦！
作者：	用户：  密码：   注册？ 验证：  防止恶意留言请输入问题答案：2*5=?
评论： 禁止表情 禁止UBB 禁止图片 识别链接 识别关键字	表  情