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 = "vb"
},
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 = "Anika",
.Salary = 15000,
.PLanguage = "python"
}
}
Dim sortedBySalary = employees.OrderByDescending(Function(e) e.Salary)
For Each employee In sortedBySalary
Console.WriteLine(employee.Name & " " & employee.Salary)
Next
End Sub
End Class
' run:
'
' R2D2 28000
' Albert 21000
' Anika 15000
' Abbie 12000
' Bowie 10000
'
