VB.net，使用哈希表判断是否重码

VB.NET（Visual Basic .NET）是Microsoft开发的一种基于.NET框架的编程语言，主要用于Windows应用程序、Web应用和桌面软件的开发。其中，哈希表（Hash Table 或 Dictionary）是一个用于存储键值对的数据结构，提供快速查找的能力，常用于查找重码或数据去重。

如果你想使用VB.NET中的哈希表来判断字符串是否有重码，你可以这样做：

Imports System.Collections.Generic

Module Module1
    Sub Main()
        Dim hashTable As New Dictionary(Of String, Integer) ' 创建一个哈希表，用String作为键，Integer作为默认值，用来记录每个字符出现的次数
        
        ' 待检查的字符串列表
        Dim strList = {"hello", "world", "hello again"}

        For Each str In strList
            Dim hashValue = 0 ' 初始化计数器

            ' 遍历字符串中的每一个字符
            For i As Integer = 0 To str.Length - 1
                If Not hashTable.ContainsKey(str(i)) Then
                    ' 如果字符不在哈希表中，则添加并设置值为1
                    hashTable.Add(str(i), 1)
                Else
                    ' 如果字符已经在哈希表中，增加计数值
                    hashValue += hashTable(str(i))
                End If
            Next

            ' 判断是否有重码，如果所有字符的出现次数加起来大于strList长度，说明有重码
            If hashValue <> str.Length Then
                Console.WriteLine("字符串 '{0}' 有重码", str)
            Else
                Console.WriteLine("字符串 '{0}' 没有重码", str)
            End If
        Next

        Console.ReadKey() ' 主程序暂停，等待用户按下回车键
    End Sub
End Module

在这个例子中，我们遍历输入的字符串，并将每个字符及其出现次数存储到哈希表中。如果某个字符出现的总次数超过其在原始字符串中的位置数量，那么就认为存在重码。