vb.net语言之集合练习

到今天为址,vb.net语言的基础知识终于被我拿下了 ,以下是今天所做练习的源码:
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim x As New Collection
        Dim i As Integer
        Dim y
        For i = 1 To 10
            x.Add(Item:="name" & i, Key:="key#" & i)
            Debug.WriteLine(x(i))

    Next    
        x.Add(Item:="这是新加入的", Before:=3) '向集合中增加成员
        MsgBox(x(1)) '用索引值访问集合的成员
        MsgBox(x(Key:="key#3")) '用关键字访问集合的成员

        For Each y In x
            Debug.WriteLine(y)
        Next
        x.Remove(3) '删除某一成员
        For Each y In x
            Debug.WriteLine(y)

        Next

        For Each y In x '删除集合中的所有成员   增减集合的成员后 集合的索引值会自动调整

            x.Remove(1)
        Next

        Debug.WriteLine(x.Count)

  End Sub