Imports System

Imports System.Linq

Imports System.Collections.Generic

​

Public Module Module1

    Public Sub Main()

        Dim studentList = New List(Of Student) From {

            New Student() With {.StudentID = 1, .StudentName = "John", .Age = 13 },

            New Student() With {.StudentID = 2, .StudentName = "Moin", .Age = 21 },

            New Student() With {.StudentID = 3, .StudentName = "Bill", .Age = 18 },

            New Student() With {.StudentID = 4, .StudentName = "Ram", .Age = 20 },

            New Student() With {.StudentID = 5, .StudentName = "Ron", .Age = 15 }

        }

​

        Dim avgAge = Aggregate st In studentList Into Average(st.Age)

​

        Console.WriteLine("Average Age of Student: {0}", avgAge)

    End Sub

End Module

    Public Class Student

        Private _studentID As integer

        Private _studentName As string

        Private _age As integer

        Private _standardID As integer

        Property StudentID() As integer

            Get

                Return _studentID

            End Get

            Set(ByVal Value As integer)

                _studentID = Value

            End Set

        End Property

        Property StudentName() As string

            Get

                Return _studentName

            End Get

            Set(ByVal Value As string)

                _studentName = Value

            End Set

        End Property

        Property Age() As integer

            Get

                Return _age

            End Get

            Set(ByVal Value As integer)

                _age = Value

            End Set

        End Property

    End Class

​