使用 VB.NET 2008 进行此分组的 Linq 代码是什么？

Question

我的人口年龄从 0 岁到 119 岁。

我希望根据以下假设对 15 岁至 49 岁的人口进行分组：

1. 15 岁至 19 岁；
2. 20至24；
3. 25 至 29；
4. 30 至 34；
5. 35 至 39；
6. 40 至 44；
7. 45 到 49。

无论年龄如何，这些对于我需要执行的计算都是无用的。以下是一些示例数据和代码。

我有一个 AnnualPopulation 类，它代表每一年的人口数量。

Public Class AnnualPopulation
    Public Id as Integer
    Public Year As Integer
    Public Gender As String
    Public YearsOfAge As Double?() = New Double?(119) { }
End Class

然后，YearsOfAge 数组/集合属性包含基于性别的人数。例如：

AnnualPopulation.Year = 2009
AnnualPopulation.Gender = "F"c
For age As Integer = 0 To AnnualPopulation.YearsOfAge.Length - 1 Step 1
    YearsOfAge(age) = 42356.67F 'Of course, this number varies from a years of age to another!'
Next

然后我想进行如下分组：

Dim groups() As Double = New Double(6) { }
For age As Integer = 15 To 49 Step 1
    Dim index As Integer = 0

    Select Case age
        Case 15 to 19
            index = 0
        Case 20 To 24
            index = 1
        Case 25 To 29
            index = 2
        Case 30 To 34
            index = 3
        Case 35 To 39
            index = 4
        Case 40 To 44
            index = 5
        Case 45 To 49
            index = 6
    End Select

    groups(index) += AnnualPopulation.YearsOfAge(age - 1)
Next

这样，我就可以得到每个年龄范围的人口总和

所以，我想对它们进行分组，然后我没有共同的密钥来对它们进行分组，运气不好！ =P 在 C# 中，我想这可以满足我的需要：

double[] groups = new double[7];
Enumerable.Range(15, 34).ToList().ForEach(age => {
    groups[(int)(age % 4)] += annualPopulation.YearsOfAge[age - 1].HasValue 
                              ? annualPopulation.YearsOfAge[age - 1].Value : 0.0;
});

除非我尝试使用 New Action(Of T1, T2)<，否则我似乎无法在 VB.NET 2008 中实现这一点/code> 或 Func(Of Double?, TKey)。我对这些一点都不舒服！ =( (潜在问题：为什么在 VB.NET 中使用 lambda 如此复杂！？)

我的代码实际上可以工作，我只是在寻找一个更好、也许更易读的解决方案，尽管这个很容易理解我在这里想要实现的目标。

无论如何，有人知道如何进行此操作吗？

=）

Answer 1

在 group by 选择器中使用 switch 语句；则按键将分别为 0 至 6。之后，您只需对每个组使用 Sum 运算符即可。

在 C# 中，它看起来像这样（在 C# 中没有范围 case）：

var filtered = data
    .Where(item => item.Age > 15 && item.Age <= 49)
    .GroupBy(item => 
                    {
                     if(item.Age > 15 && item.Age <= 19)
                       return 0;
                     else if(item.Age <= 24)
                       return 1;
                     else if(item.Age <= 29)
                       return 2;
                     else if(item.Age <= 34)
                       return 3;
                     else if(item.Age <= 39)
                       return 4;
                     else if(item.Age <= 44)
                       return 5;
                     else if(item.Age <= 49)
                       return 6;
                    });

之后，您可以创建一个字典：

var dict = filtered.ToDictionary(i => i.Key, i => /* do something with the sequence */);