0003_VisualBasic_MK

Module Module1     Sub Main()         Dim names() As String = { "MATHI", "SUJITHRA", "SURAJ", "SHAKTHI"}         For Each name As String In names             Console. WriteLine(name)         Next         Console .ReadLine()     End Sub End Module

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