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
|