Question

我在查找一个函数时遇到了this排序算法，该函数通过对象的属性对VBA中的对象集合进行排序。为了确保我理解我实现的代码的所有方面，我想验证我对这个算法的想法。对我而言，它看起来像插入排序，但我想与社区核实，以确保我是正确的。

为了帮助自己更好地理解它，我把这个函数正在做的伪代码放在一起。（假设它将按升序排序）

UnknownSort(collection C)
    for i=1 to C.Count - 1
      begin
        x = C[i].Value
        index = i
        for j=i+1 to C.Count 
         begin
          y = C[j].Value
          if x > y then
            x = y
            index = j
          j++
         end
      if index <> i then
        temp = C[index]
        C.Remove(index)
        C.Add temp before C[i]
      i = i + 1
    end

我已经包含了代码，以防我在上面的伪代码中犯了错误。

对于那些不熟悉VBA的人，col.Add obj，我将对象插入到集合中对象i之前的集合中。

Private Function SortCollection(col As Collection, psSortPropertyName As String, pbAscending As Boolean) As Collection

Dim obj As Object
Dim i As Integer
Dim j As Integer
Dim iMinMaxIndex As Integer
Dim vMinMax As Variant
Dim vValue As Variant
Dim bSortCondition As Boolean
Dim bUseKey As Boolean
Dim sKey As String        

    For i = 1 To col.Count - 1
        Set obj = col(i)
        vMinMax = CallByName(obj, psSortPropertyName, VbGet)
        iMinMaxIndex = i

        For j = i + 1 To col.Count
            Set obj = col(j)
            vValue = CallByName(obj, psSortPropertyName, VbGet)

            If (pbAscending) Then
                bSortCondition = (vValue < vMinMax)
            Else
                bSortCondition = (vValue > vMinMax)
            End If

            If (bSortCondition) Then
                vMinMax = vValue
                iMinMaxIndex = j
            End If

            Set obj = Nothing
        Next j

        If (iMinMaxIndex <> i) Then
            Set obj = col(iMinMaxIndex)

            col.Remove iMinMaxIndex
            col.Add obj, , i               

            Set obj = Nothing
        End If

        Set obj = Nothing
    Next i
   Set SortCollection = col
End Function

修改对于一个永远不会超过300个具有随机位移元素的列表，这个算法可以，或者我应该尝试实现其他的东西吗？

Answer 1

我相信这是Selection sort。

修改要回答你的问题，这不是一个快速的算法，它是一个O（n ²），但是，如果这是你唯一的处理我认为O（n ²）为300元素很好。

您应该测试整个程序，然后判断是否需要优化。请记住，您的排序算法可以进行优化。

帮助确定此排序算法

1 个答案: