装啤酒的，中世纪用什么装啤酒？

装啤酒的，中世纪用什么装啤酒？

Sub Main()

Console.WriteLine("请输入要分词的文本：")

Dim inputText As String = Console.ReadLine()

Dim wordCount As New Dictionary(Of String, Integer)

Dim words As String() = inputText.Split(New Char() { " ", ",", ".", "?", "!", ";", ":" }) ' 使用空格、逗号、句号、问号、感叹号、分号和冒号作为分隔符

For Each word As String In words

If wordCount.ContainsKey(word) Then

wordCount(word) += 1

Else

wordCount.Add(word, 1)

End If

Next

Console.WriteLine("每个单词出现的次数：")

For Each kvp As KeyValuePair(Of String, Integer) In wordCount

Console.WriteLine($"{kvp.Key}: {kvp.Value}")

Next

Console.ReadLine()

End Sub

End Module

```

这段代码实现了将输入的文本进行分词并统计每个单词出现的次数的功能。程序中定义了一个`wordCount`的字典用于存储单词和它们出现的次数。代码将用户输入的文本分割为一系列的单词（在这里以空格、逗号等符号为分隔符），并更新`wordCount`字典以统计每个单词出现的次数。通过循环打印出每个单词以及其出现的次数。

TAGS标签：