是否有一種簡單的方法在vb6中的單個數組上具有「模式」功能？

Question

我需要在vb6中的單個數組上運行「模式」（該值最常出現）。在大型數組上執行此操作有沒有一種快速方法？

Answer 1

有一個體面的實施VB6排序算法的上網一看（我不能相信它不具有一個內置的！），排序數組，然後通過它計數出現（這將直截了當，因爲你已經將所有相同的物品放在一起） - 記錄你正在經歷的最頻繁發生的物品，並且完成。這應該是O（n ln（n）） - 即足夠快 - 如果你使用了一個體面的排序算法（quicksort或類似的）。

Answer 2

你可以使用一個哈希表。散列數組的所有元素（即O（n））。您需要一個後端數據結構來保存每個哈希bin包含的唯一值和發生次數（類似於C++ std :: map的某種關聯內存）。只要你可以保證在任何給定的bin中不會有超過常數的m個碰撞（對於不同的散列輸入值），這就是O（m log m），但是因爲m是常數，所以真的是O（1）。這個假設可能不合理，但關鍵是要獲得足夠的分佈以適合您的輸入值。

拉出模式，檢查所有在哈希表中的元素，這將是發生在你原來的輸入數組和他們發生次數值。找到發生次數最多的值（再次O（n））。如果可以找到合適的散列函數，則總複雜度爲O（n）。如果散列函數不能爲您提供良好的碰撞性能，最差情況下的性能將爲O（n log n）。

在另一方面，淨提供了大量的運行時庫，可能使這更容易。如果可行，你可能會考慮使用VB的新版本。

Answer 3

包括以Microsoft腳本運行時的參考，以及用於Dictionary對象以保持頻率的訊號，然後尋找指數最高頻率和對應的鍵是模式。不是最快捷/最優雅的解決方案，但我只需要快速的工作。

Function fnModeSingle(ByRef pValues() As Single) As Single 
    Dim dict As Dictionary 
    Set dict = New Dictionary 
    dict.CompareMode = BinaryCompare 
    Dim i As Long  
    Dim pCurVal As Single 
    For i = 0 To uBound(pValues) 
    'limit the values that have to be analyzed to desired precision' 
     pCurVal = Round(pValues(i), 2) 
      If (pCurVal > 0) Then 
       'this will create a dictionary entry if it doesn't exist 
       dict.Item(pCurVal) = dict.Item(pCurVal) + 1 
      End If 
    Next 

    'find index of first largest frequency' 
    Dim KeyArray, itemArray 
    KeyArray = dict.Keys 
    itemArray = dict.Items 
    pCount = 0 
    Dim pModeIdx As Integer 
    'find index of mode' 
    For i = 0 To UBound(itemArray) 
     If (itemArray(i) > pCount) Then 
      pCount = itemArray(i) 
      pModeIdx = i 
     End If 
    Next 
    'get value corresponding to selected mode index' 
    fnModeSingle = KeyArray(pModeIdx) 
    Set dict = Nothing 

End Function