活代码LINQ——08

一、模块代码

' Fig. 9.6: ListCollection.vb
' Generic List collection demonstration.
Module ListCollection
   Sub Main()
      Dim items As New List(Of String) ' create a new List of Strings

      items.Add("red") ' append an item to the List
      items.Insert(0, "yellow") ' insert the value at index 0

      Console.Write( _
         "Display list contents with counter-controlled loop:") ' header

      ' display the colors in the list
      For i = 0 To items.Count - 1
         Console.Write(" {0}", items(i))
      Next

      ' display colors using For Each...Next in the Display method
      Display(items, vbNewLine & _
         "Display list contents with For Each...Next statement:")

      items.Add("green") ' add "green" to the end of the List
      items.Add("yellow") ' add "yellow" to the end of the List
      Display(items, "List with two new elements:") ' display the List

      items.Remove("yellow") ' remove the first "yellow"
      Display(items, "Remove first instance of yellow:") ' display List

      items.RemoveAt(1) ' remove item at index 1
      Display(items, "Remove second list element (green):") ' display List

      ' check if a value is in the List
      Console.WriteLine("""red"" is {0}in the list", _
         If(items.Contains("red"), String.Empty, "not "))

      ' display number of elements in the List
      Console.WriteLine("Count: {0}", items.Count)

      ' display the capacity of the List
      Console.WriteLine("Capacity: {0}", items.Capacity)
   End Sub ' Main

   ' display the List's elements on the console
   Sub Display(ByVal items As List(Of String), ByVal header As String)
      Console.Write(header) ' print header

      ' display each element in items
      For Each item In items
         Console.Write(" {0}", item)
      Next

      Console.WriteLine() ' print end of line
   End Sub ' Display
End Module ' ListCollection

' **************************************************************************
' * (C) Copyright 1992-2009 by Deitel & Associates, Inc. and               *
' * Pearson Education, Inc. All Rights Reserved.                           *
' *                                                                        *
' * DISCLAIMER: The authors and publisher of this book have used their     *
' * best efforts in preparing the book. These efforts include the          *
' * development, research, and testing of the theories and programs        *
' * to determine their effectiveness. The authors and publisher make       *
' * no warranty of any kind, expressed or implied, with regard to these    *
' * programs or to the documentation contained in these books. The authors *
' * and publisher shall not be liable in any event for incidental or       *
' * consequential damages in connection with, or arising out of, the       *
' * furnishing, performance, or use of these programs.                     *
' **************************************************************************　

二、运行结果

来源：Visual Basic 2008 How To Program   P304