access excel vba穫?cè)?shù)組中的衆(zhòng)數(shù)

如在數(shù)組{2，3，2，5，8，2，16，17} ，衆(zhòng)數(shù)卽是 2瞭

這箇我們?nèi)绻肧QL語句，是很容易求齣來的。用count 統(tǒng)計，用order by 排序一下就齣來結(jié)果瞭。

但是在VBA中，如何求齣數(shù)組中的衆(zhòng)數(shù)呢？下麵給齣具體的函數(shù)

Function gf_mode(a)
    Dim b As Integer
    Dim c() As Double
    Dim f() As Double
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    Dim x() As Double
    k = UBound(a)
    ReDim c(k), f(k)
    For i = 0 To k - 1
        If f(i) = 0 Then
            c(i) = 1
            For j = i + 1 To k
                If a(j) = a(i) Then
                    c(i) = c(i) + 1
                    f(j) = 1
                End If
            Next
        End If
    Next
    If f(i) = 0 Then c(i) = 1
    b = 1
    For i = 0 To k
        If c(i) > b Then b = c(i)
    Next
'    若所有數(shù)據(jù)都是衆(zhòng)數(shù)，則沒有衆(zhòng)數(shù)
    For i = 0 To k
        If c(i) <> b And c(i) <> 0 Then Exit For
    Next
    If i = k + 1 Then
        ReDim x(0)
        x(0) = "沒有衆(zhòng)數(shù)"
        gf_mode = x
        Exit Function
    End If
'    找齣所有衆(zhòng)數(shù)
    j = 0
    For i = 0 To k
        If c(i) = b Then
            ReDim Preserve x(j)
            x(j) = a(i)
            j = j + 1
        End If
    Next
    gf_mode = x
End Function

在窗體或者直接調(diào)用函數(shù)，截圖如下

' 調(diào)用求衆(zhòng)數(shù)的函數(shù)
Public Sub acc()
    Dim arrtxt() As Double

    arrtxt = gf_mode(Array(2，3，2，5，8，2，16，17))
'    顯示所有衆(zhòng)數(shù)
    For i = 0 To UBound(arrtxt)
        MsgBox "衆(zhòng)數(shù)是：" & "" & arrtxt(i)
    Next
End Sub