从数组中获取最大值，其中可能有多个最大值

Question

我从数据库中创建了一个年龄数组，并希望找到数组中的最大值。到目前为止我已经编写了这段代码...

    Dim MaxAge, MaxIndex, MaxCount As Integer

    MaxAge = arrAge(1)
    MaxIndex = 1

    For MaxCount = 2 To Length
        If MaxAge < arrAge(MaxCount) Then
            MaxAge = arrAge(MaxCount)
            MaxIndex = MaxCount
        End If
    Next

    lstDisplayMax.Items.Add(arrAge(MaxIndex))

此代码有效，但是，如果数组中有两个或多个最大值，它仍然只会导致显示最大值之一。我需要它来显示所有最大值。预先感谢:)

Answer 1

我已经资助了答案。您所要做的就是使用

arrAge(maxindex)

为数据库创建一个过滤器。它将显示数据库中具有最大年龄的所有记录。

代码如下：

Dim MaxAge, MaxIndex, MaxCount As Integer
Dim Length As Integer = Me.listName.Items.Count - 1

MaxAge = arrAge(1)
MaxIndex = 1

For MaxCount = 2 To Length
    If MaxAge < arrAge(MaxCount) Then
       MaxAge = arrAge(MaxCount)
       MaxIndex = MaxCount
    End If
Next

Me.PatientListingBindingSource.Filter = "pAge = '" & arrAge(MaxIndex) & "' "