Imports System

Public Module Module1

    Public Sub Main()

        dim arr(5) as string

        Console.WriteLine("Enter the values")

        console.WriteLine("array length {0}",arr.Length)

    '   For i=0  to arr.length-1

    '   arr(i)=console.ReadLine()

'Next

    For Each item  In arr

    console.WriteLine(item)

Next

    End Sub

End Module