当前位置：首页 > news >正文

＜span class=“js_title_inner“＞在 VB.NET 中，LINQ如何统计列表类型“List(Of String())”＜/span＞

news 2026/5/12 15:04:34

LINQ（Language Integrated Query）是一种强大而直观的查询语言，集成于 .NET 语言中，用于对集合、数组、数据库、XML 等数据源进行查询和操作。在统计分析场景中，LINQ 提供了丰富的聚合函数（如 Count、Sum、Average、Min、Max、GroupBy 等），可以快速完成常见的统计任务

'下面以一个例子 List(Of String()) 跟大家一起学习如何用Linq进行统计Dim list As New List(Of String()) From { {"A", "85","90"}, {"A", "78","92"}, {"B", "81","94"}, {"B", "80","49"},}

你提供的List(Of String())结构虽然以字符串形式存储了“类别”和“数值”，但通过LINQ配合适当的类型转换（如Integer.Parse或CInt），可以非常方便地进行分组、计数、求和、平均值等统计操作。

📌 数据结构说明

你的数据：

Dim list As New List(Of String()) From { {"A", "85", "90"}, {"A", "78", "92"}, {"B", "81", "94"}, {"B", "80", "49"}}

第 0 列：分组键（如班级 "A"、"B"）
第 1 列：成绩1（字符串形式）
第 2 列：成绩2（字符串形式）

✅ 常见 LINQ 统计操作示例（VB.NET）

⚠️ 注意：为安全起见，建议先过滤掉无效或空值。这里假设数据格式正确。

1.按第0列分组，并计算每组记录数（Count）

Dim groupCounts = From row In list Group By Key = row(0) Into Group Select New With { .GroupKey = Key, .Count = Group.Count() }For Each g In groupCounts Console.WriteLine($"组 {g.GroupKey}: {g.Count} 条记录")Next' 输出:' 组 A: 2 条记录' 组 B: 2 条记录

2.按组计算第1列（成绩1）的总分（Sum）

Dim sumScore1 = From row In list Group By Key = row(0) Into Group Select New With { .GroupKey = Key, .TotalScore1 = Group.Sum(Function(r) CInt(r(1))) }For Each g In sumScore1 Console.WriteLine($"组 {g.GroupKey} 成绩1总分: {g.TotalScore1}")Next' 输出:' 组 A 成绩1总分: 163' 组 B 成绩1总分: 161

3.按组计算第2列（成绩2）的平均分（Average）

Dim avgScore2 = From row In list Group By Key = row(0) Into Group Select New With { .GroupKey = Key, .AvgScore2 = Group.Average(Function(r) CDbl(r(2))) }For Each g In avgScore2 Console.WriteLine($"组 {g.GroupKey} 成绩2平均分: {g.AvgScore2:F2}")Next' 输出:' 组 A 成绩2平均分: 91.00' 组 B 成绩2平均分: 71.50

4.筛选出成绩2低于60的记录（Where）

Dim failed = From row In list Where CInt(row(2)) < 60 Select rowConsole.WriteLine("成绩2不及格的记录：")For Each r In failed Console.WriteLine($"[{String.Join(", ", r)}]")Next' 输出:' [B, 80, 49]

5.更复杂的：每组中成绩1 + 成绩2 的总分之和

Dim totalSumPerGroup = From row In list Group By Key = row(0) Into Group Select New With { .GroupKey = Key, .TotalCombined = Group.Sum(Function(r) CInt(r(1)) + CInt(r(2))) }For Each g In totalSumPerGroup Console.WriteLine($"组 {g.GroupKey} 总分合计: {g.TotalCombined}")Next' 输出:' 组 A 总分合计: 347 ' (85+90)+(78+92) = 175+170' 组 B 总分合计: 304 ' (81+94)+(80+49) = 175+129

🔒 安全建议：处理可能的无效数据

如果数据可能包含空值、非数字字符串等，应增加容错：

Dim safeQuery = From row In list Where row IsNot Nothing AndAlso row.Length >= 3 AndAlso Integer.TryParse(row(1), Nothing) AndAlso Integer.TryParse(row(2), Nothing) Group By Key = row(0) Into Group Select New With { .GroupKey = Key, .Avg1 = Group.Average(Function(r) CInt(r(1))), .Avg2 = Group.Average(Function(r) CInt(r(2))) }