在VB6.0统计动态数组中某个值的个数

Answer 1

Public Function GetNum(ByRef a() As Integer, ByVal n As Integer) As Integer
    Dim i As Integer
    Dim Num As Integer
    Num = 0
    For i = 0 To UBound(a) - 1
        If a(i) = n Then Num = Num + 1
    Next i
    GetNum = Num
End Function