用新VB.NET枚举提高效率

Dim testCollection As New Collection（）

Dim collectionItem As String 

Dim loopCounter As Integer Dim enumCollection As Ienumerator

With testCollection

.Add（"1"）

.Add（"2"）

.Add（"3"）

End With

For Each collectionItem In testCollection 

Console.Out.WriteLine（collectionItem）

Next

For loopCounter = 1 To testCollection.Count 

Console.Out.WriteLine（testCollection.Item（loopCounter））

Next

enumCollection = testCollection.GetEnumerator（）

Do While enumCollection.MoveNext 

Console.Out.WriteLine（enumCollection.Current）

Loop