VB_0005_Array1

Module Module1

    Sub Main()

        'Arrays always start with 0

        Dim numbers(0 To 4) As Integer

        numbers(0) = 4
        numbers(1) = 8
        numbers(2) = 15
        numbers(3) = 16
        numbers(4) = 23

        Console.WriteLine("The 3rd element in the array:" & numbers(2))
        Console.WriteLine("Iterating the entire array")

        'numbers.length gives Total Elements in the Array in numerical value

        For index = 0 To numbers.Length - 1
            Console.WriteLine(numbers(index))
        Next
        Console.ReadLine()


    End Sub

End Module