VB.Net/LINQ/Reverse — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
(нет различий)
|
Текущая версия на 15:41, 26 мая 2010
All cars in reverse
<source lang="vbnet">
Public Class Car
Public PetName As String = String.Empty Public Color As String = String.Empty Public Speed As Integer Public Make As String = String.Empty Public Overloads Overrides Function ToString() As String Return String.Format("Make={0}, Color={1}, Speed={2}, PetName={3}", Make, Color, Speed, PetName) End Function
End Class Module Program
Sub Main() Dim myCars As New List(Of Car)(New Car() { _ New Car With {.PetName = "D", .Color = "Silver", .Speed = 100, .Make = "BMW"}, _ New Car With {.PetName = "C", .Color = "Tan", .Speed = 90, .Make = "BMW"}, _ New Car With {.PetName = "B", .Color = "Rust", .Speed = 5, .Make = "Yugo"}, _ New Car With {.PetName = "A", .Color = "White", .Speed = 43, .Make = "Ford"}}) Dim subset = (From c In myCars Select c).Reverse() For Each c As Car In subset Console.WriteLine("{0} is going {1} MPH", c.PetName, c.Speed) Next End Sub
End Module
</source>