Mega Code Archive
Convert and Copy Elements in a Stack to an Array
<![CDATA[
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
]]>