Сумма целочисленных значений полей словаря в vb.net 4.0

Question

В словаре .net 4.0 я знаю, что могу вычислить сумму всех полей целочисленных значений следующим образом:

 Dim dbar As Dictionary(Of String, Integer) = New Dictionary(Of String, Integer)() From {{"A", 1}, {"B", 1}, {"C", 1}}
    Dim sum As Integer = 0
    For Each v As Integer In dbar.Values
      sum += v
    Next

Существует ли более элегантный способ вычисления суммы?

Answer 1

Просто используйте метод Sum():

dbar.Values.Sum()

Answer 2

Да, используя LINQ to Objects:

Dim sum As Integer = dbar.Values.Sum()