从VB.Net中的列表获取不同值的总和

Dim numbers As New List(Of Integer)()

numbers.Add(1)
numbers.Add(2)
numbers.Add(3)
numbers.Add(2)
numbers.Add(4)

Dim distinctValues As New Dictionary(Of Integer, Integer)()

For Each number As Integer In numbers
    If distinctValues.ContainsKey(number) Then
        distinctValues(number) += number
    Else
        distinctValues.Add(number, number)
    End If
Next

For Each kvp As KeyValuePair(Of Integer, Integer) In distinctValues
    Console.WriteLine("Value: " & kvp.Key & ", Sum: " & kvp.Value)
Next