Imports System
Imports System.Linq
Imports System.Collections.Generic
Public Class Employee
Public Property Name As String
Public Property Salary As Integer
Public Property PLanguage As String
End Class
Public Class Program
Public Shared Sub Main()
Dim employees = New List(Of Employee) From {
New Employee With {
.Name = "Abbie",
.Salary = 12000,
.PLanguage = "c#"
},
New Employee With {
.Name = "Bowie",
.Salary = 10000,
.PLanguage = "c"
},
New Employee With {
.Name = "Albert",
.Salary = 21000,
.PLanguage = "java"
},
New Employee With {
.Name = "R2D2",
.Salary = 28000,
.PLanguage = "c++"
},
New Employee With {
.Name = "Dune",
.Salary = 28000,
.PLanguage = "vb"
},
New Employee With {
.Name = "Anika",
.Salary = 15000,
.PLanguage = "python"
}
}
Dim startWithA = employees.Where(Function(e) e.Name(0) = "A"c)
For Each employee In startWithA
Console.WriteLine(employee.Name)
Next
End Sub
End Class
' run:
'
' Abbie
' Albert
' Anika
'
