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
|