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