Module Module1
Sub Main()
FuncDelegate()
End Sub
Public Sub FuncDelegate()
Dim P_List_user As List(Of User) = New List(Of User)()
P_List_user.Add(New User("小刘", 33, 5000))
P_List_user.Add(New User("小王", 30, 5000))
P_List_user.Add(New User("小赵", 33, 5000))
P_List_user.Add(New User("小吕", 37, 5000))
P_List_user.Add(New User("小房", 33, 5000))
Dim pay As Double = P_List_user.Sum(Function(pp) pp.Pay)
Console.WriteLine("员工工资总和为:" + pay.ToString())
Console.ReadLine()
End Sub
Public Class User
Property Name As String
Property Age As Integer
Property Pay As Double
Public Sub New(Name As String, Age As Integer, Pay As Double)
Me.Name = Name
Me.Age = Age
Me.Pay = Pay
End Sub
Public Overrides Function ToString() As String
Return String.Format("姓名:{0} 年龄:{1} 工资:{2}", Name, Age, Pay)
End Function
End Class
End Module