Convert and Copy Elements in a Stack to an Array : Stack « Collections « VB.Net Tutorial

1. VB.Net Tutorial
2. Collections
3. Stack

Option Strict On
 Imports System
 Imports System.Collections
 Class Tester
     Public Shared Sub DisplayValues(ByVal myCollection As IEnumerable)
         Dim o As Object
         For Each o In myCollection
             Console.WriteLine(o)
         Next o
     End Sub

     Shared Sub Main( )
         Dim intStack As New Stack( )

         Dim i As Integer
         For i = 1 To 4
             intStack.Push((i * 5))
         Next i

         Console.WriteLine("intStack values:")
         DisplayValues(intStack)

         Const arraySize As Integer = 10
         Dim testArray(arraySize) As Integer

         For i = 1 To arraySize - 1
             testArray(i) = i * 100
         Next i
         Console.WriteLine("Contents of the test array")
         DisplayValues(testArray)

         intStack.CopyTo(testArray, 3)
         Console.WriteLine("TestArray after copy:  ")
         DisplayValues(testArray)

         Dim myArray As Object( ) = intStack.ToArray( )

         Console.WriteLine("The new array:")
         DisplayValues(myArray)
     End Sub
 End Class

intStack values:
20
15
10
5
Contents of the test array
0
100
200
300
400
500
600
700
800
900
0
TestArray after copy:
0
100
200
20
15
10
5
700
800
900
0
The new array:
20
15
10
5