6.46.1.Array of Structure
Structure Employee
Dim strName As String
Dim intSalary As Integer
End Structure
public class Test
public Shared Sub Main
Dim aryEmployees ( 15 ) As Employee
Dim intCounter As Integer
aryEmployees ( 0 ) .strName = "J"
aryEmployees ( 0 ) .intSalary = 3
aryEmployees ( 1 ) .strName = "B"
aryEmployees ( 1 ) .intSalary = 6
'Se t other array elements here.
aryEmployees ( 15 ) .strName = "P"
aryEmployees ( 15 ) .intSalary = 1
'Sh ow the elements of the array.
For intCounter = 0 To 15
Console.WriteLine ( "Array element: " & intCounter & vbCrLf & _
"Name: " & aryEmployees ( intCounter ) .strName & vbCrLf & _
"Salary: " & aryEmployees ( intCounter ) .intSalary )
Next intCounter
End Sub
End class
Array element: 0
Name: J
Salary: 3
Array element: 1
Name: B
Salary: 6
Array element: 2
Name:
Salary: 0
Array element: 3
Name:
Salary: 0
Array element: 4
Name:
Salary: 0
Array element: 5
Name:
Salary: 0
Array element: 6
Name:
Salary: 0
Array element: 7
Name:
Salary: 0
Array element: 8
Name:
Salary: 0
Array element: 9
Name:
Salary: 0
Array element: 10
Name:
Salary: 0
Array element: 11
Name:
Salary: 0
Array element: 12
Name:
Salary: 0
Array element: 13
Name:
Salary: 0
Array element: 14
Name:
Salary: 0
Array element: 15
Name: P
Salary: 1
6.46.Structure Array 6.46.1. Array of Structure