VB.Net program to demonstrate the custom aggregation with seed value using LINQ Aggregate() method

Here, we are going to demonstrate the custom aggregation using LINQ Aggregate() method in VB.Net.
Submitted by Nidhi, on January 27, 2021 [Last updated : March 08, 2023]

VB.Net – Custom aggregation with seed value

In this program, we will use the Aggregate() method to perform custom aggregation on specified list elements with a seed value.

Program/Source Code:

The source code to demonstrate the custom aggregation with seed value using LINQ Aggregate() method is given below. The given program is compiled and executed successfully.

VB.Net code to demonstrate the example of custom aggregation with seed value using LINQ Aggregate() method

'VB.NET program to demonstrate the custom aggregation with 
'seed value using LINQ Aggregate() method.

Imports System
Imports System.IO
Imports System.Linq

Module Module1
    Public Class Employee
        Public id As Integer
        Public name As String
        Public age As Integer
    End Class

    Sub Main()
        Dim empList = New List(Of Employee) From
        {
            New Employee() With {.id = 101, .name = "Amit", .age = 21},
            New Employee() With {.id = 102, .name = "Arun", .age = 22},
            New Employee() With {.id = 103, .name = "Aman", .age = 23},
            New Employee() With {.id = 104, .name = "Amar", .age = 21},
            New Employee() With {.id = 105, .name = "Akki", .age = 22},
            New Employee() With {.id = 105, .name = "Anuj", .age = 23}
        }

        Dim EmployeeNames = empList.Aggregate(Of String)(
              "Employee Names: ",
              Function(str, e) str + e.name + ",")

        Console.WriteLine(EmployeeNames)
    End Sub
End Module

Output

Employee Names: Amit,Arun,Aman,Amar,Akki,Anuj,
Press any key to continue . . .

Explanation

In the above program, we created a module Module1 that contains an Employee class and Main() function. The Employee class contains id, name, and age data members.

The Main() function is the entry point for the program. In the Main() function, We created the list of Employees and then perform aggregation on employee names to separate using comma. Here we also passed seed value "Employee Names" in the Aggregate() method. After that, we printed the result on the Aggregate() method on the console screen.

VB.Net LINQ Query Programs »

VB.Net program to demonstrate the custom aggregation using LINQ Aggregate() method