VB.Net查找出现频率最高的单词

原文：http://www.lob.cn/sl/other/2434.shtml

 

Public Class Form1
    '出现频率最高的单词
    Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
        Dim MyWords As String() = Me.textBox1.Text.Split(New Char() _
        {".", "?", "!", " ", ";", ":", ","}, StringSplitOptions.RemoveEmptyEntries)
        Dim MyQuery = From MyWord In MyWords _
                      Group MyWord By MyKey = MyWord Into MySameGroup = Group _
                      Order By MySameGroup.Count() Descending
        Dim MyInfo As String = "出现频率最高的单词是:" + _
                    MyQuery.Take(1).ToList()(0).MyKey.ToString()
        MessageBox.Show(MyInfo, "乐博网信息提示", MessageBoxButtons.OK, _
                        MessageBoxIcon.Information)
    End Sub

End Class