//在  .NET种又2种集合 一种是 VB的 collection   集合 另一种是   .NET Framework 的泛型集合  

VB的collection集合     和 .NET下的泛型集合 泛型集合限定了 键值对的类型

1.   VB的collection集合

Module Module1

    Sub Main()

        Dim col As New Microsoft.VisualBasic.Collection()

        col.Add(1, "firstkey")

        col.Add(2, "secondkey")

        col.Add(3, "thirdkey")

        Dim num As Integer

        num = col.Count

        Dim a As Integer

        For a = 1 To num

            Console.WriteLine(col.Item(a).ToString())   //VB的 collection集合

        Next

        MsgBox("")

    End Sub

End Module

 

2. .NET 的Dicoionary 泛型集合  KeyValuePair键值对类型    可以用for  each    ....next 语句来遍历  泛型集合 元素 下面是代码

 

Module Module1

    Sub Main()

        Dim col As New Dictionary(Of String, String)

        col.Add("1", "item1")

        col.Add("2", "item2")

        col.Add("3", "item3")

        col.Add("4", "item4")

        Dim aPair As KeyValuePair(Of String, String)

        For Each aPair In col

            Console.WriteLine(aPair.Key + Space(2) + aPair.Value)

        Next

        MsgBox("")

 

    End Sub

End Module