сравнить два словарных значения ключа

Question

У меня есть два словарных объекта один из двух типов Dictionary(of Integer, string).

Мне нужно проверить, повторяется ли значение ключа в первом словаре i.e. dc1 в словаре dc2, если так получить ключ от повторяющегося значения ключа. ниже код работает, но есть гораздо лучший способ сделать сравнение

Dim dc1 As Dictionary(Of Integer, String) = New Dictionary(Of Integer, String) 
    Dim dc2 As Dictionary(Of Integer, String) = New Dictionary(Of Integer, String) 
    dc1.Add(1, "student1") 
    dc1.Add(2, "student2") 
    dc1.Add(3, "student3") 
    dc1.Add(4, "student4") 
    dc2.Add(1, "student1") 
    dc2.Add(2, "student4") 
    dc2.Add(3, "student2") 
    dc2.Add(4, "student3") 
    dc2.Add(10, "student1") 
    dc2.Add(11, "student4") 

    Dim lstcount1 As List(Of Integer) = New List(Of Integer) 
    For Each kvp1 As KeyValuePair(Of Integer, String) In dc1 
     Dim count As Integer = 0 
     For Each kvp2 As KeyValuePair(Of Integer, String) In dc2 
      If kvp1.Value = kvp2.Value Then 
       count = count + 1 
       If (count > 1) Then 

        lstcount1.Add(kvp2.Key) 
       End If 


      End If 
     Next 

    Next 

Answer 1

Я не знаю, если это «лучше», во всяком случае она отличается:

Dim dups = dc2.GroupBy(Function(a) a.Value, Function(a) a.Key) _ 
    .Where(Function(b) b.Count = 2) _ 
    .ToDictionary(Function(c) c.Key, Function(c) c(1)) 

For Each kvp1 In dc1 
    If dups.ContainsKey(kvp1.Value) Then lstcount1.Add(dups(kvp1.Value)) 
Next 

GroupBy групп ключей dc2 по именам студентов. Где фильтрует группы, содержащие дубликаты (2 клавиши). И ToDictionary преобразует результаты в словарь [дублированное имя ученика, ключ дублированного имени ученика].