Option Strict On
Imports System
Public Class Employee
Private empID As Integer
Public Sub New(ByVal empID As Integer)
Me.empID = empID
End Sub
Public Overrides Function ToString( ) As String
Return empID.ToString( )
End Function
End Class
Class Tester
Shared Sub Main( )
Dim intArray( ) As Integer
Dim empArray( ) As Employee
intArray = New Integer(5) {}
empArray = New Employee(3) {}
Dim i As Integer
For i = 0 To empArray.Length - 1
empArray(i) = New Employee(i + 5)
Next i
Console.WriteLine("The Integer array...")
Dim intValue As Integer
For Each intValue In intArray
Console.WriteLine(intValue.ToString( ))
Next
Console.WriteLine("The employee array...")
Dim e As Employee
For Each e In empArray
Console.WriteLine(e)
Next
End Sub 'Run
End Class
|