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}

        }

​

        ' LINQ Query Syntax to find out teenager students

        Dim teenAgerStudents As IList(Of Student) = (From s In studentList _

            Where s.Age > 12 And s.Age < 20 _

            Select s).ToList()

​

        Console.WriteLine("Teen age Students:")         

        For Each stud As Student In teenAgerStudents

            Console.WriteLine(stud.StudentName)

        Next

    End Sub

End Module

    Public Class Student

        Private _studentID As integer

        Private _studentName As string

        Private _age 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