public class Test
public Shared Sub Main
Dim arySalaries(15) As Integer
Dim aryNames(15) As String
Dim intCounter As Integer
aryNames(0) = "J"
arySalaries(0) = 34000
aryNames(1) = "B"
arySalaries(1) = 62000
'Set other array elements here.
aryNames(15) = "P"
arySalaries(15) = 10300
'Show the elements of the array.
For intCounter = 0 To 15
Console.WriteLine("Array element: " & intCounter & vbCrLf & _
"Name: " & aryNames(intCounter) & vbCrLf & _
"Salary: " & arySalaries(intCounter))
Next intCounter
End Sub
End class
Array element: 0
Name: J
Salary: 34000
Array element: 1
Name: B
Salary: 62000
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: 10300