Vb.net 需要帮助找到共同的价值观吗

基本上，我要做的是从列表框中提取最常见的值。列表框将有许多不同的随机生成的数字，它应该拉最常见的一个，并突出显示它。我想不出正确的代码，我什么都试过了！请帮忙！（vb.net）

在上面的示例中，它应该检查哪个值最常见，1或2。然后更改标签并突出显示列表框中的数字。我买不到…

你可以试试这个：

Dim foundMost As String = ListBox1.Items.Cast(Of String) _
                                        .GroupBy(Function(x) x) _
                                        .OrderByDescending(Function(y) y.Count) _
                                        .First.Key

Label7.Text = foundMost
ListBox1.SelectedIndices.Clear()
For i As Integer = 0 To ListBox1.Items.Count - 1
  If ListBox1.Items(i) = foundMost Then
    ListBox1.SelectedIndices.Add(i)
  End If
Next

上面的LINQ语句遍历ListBox中的字符串列表并按其值对它们进行分组，然后按该项在列表中出现的次数降序排列，然后获取结果列表中的第一项

Dim foundMost As String = ListBox1.Items.Cast(Of String) _
                                        .GroupBy(Function(x) x) _
                                        .OrderByDescending(Function(y) y.Count) _
                                        .First.Key

Label7.Text = foundMost
ListBox1.SelectedIndices.Clear()
For i As Integer = 0 To ListBox1.Items.Count - 1
  If ListBox1.Items(i) = foundMost Then
    ListBox1.SelectedIndices.Add(i)
  End If
Next