vb.net字典查重

在VB.NET中，可以使用Dictionary类来实现字典的查重功能。下面是一个示例代码：

Imports System
Imports System.Collections.Generic

Module Module1
    Sub Main()
        ' 创建一个Dictionary对象
        Dim dict As New Dictionary(Of String, String)()

        ' 添加数据到字典
        dict.Add("key1", "value1")
        dict.Add("key2", "value2")
        dict.Add("key3", "value3")
        dict.Add("key4", "value4")
        dict.Add("key5", "value5")

        ' 判断字典中是否存在重复的值
        Dim isDuplicate As Boolean = False
        Dim duplicateValues As New List(Of String)()

        For Each value As String In dict.Values
            If duplicateValues.Contains(value) Then
                isDuplicate = True
                Exit For
            Else
                duplicateValues.Add(value)
            End If
        Next

        ' 输出结果
        If isDuplicate Then
            Console.WriteLine("字典中存在重复的值")
        Else
            Console.WriteLine("字典中不存在重复的值")
        End If

        Console.ReadLine()
    End Sub
End Module

这段代码创建了一个Dictionary对象，并向其中添加了一些键值对。然后，通过遍历字典的值，判断是否存在重复的值。如果存在重复的值，则输出"字典中存在重复的值"，否则输出"字典中不存在重复的值"。