Contact: aviboots(AT)netvision.net.il
41,551 questions
54,171 answers
573 users
Module Module1 Sub Main() Dim array(4) As Integer array(0) = 200 array(1) = 878 array(2) = 2 array(3) = 99 array(4) = 1000 Console.WriteLine(array(0)) Console.WriteLine(array(1)) Console.WriteLine(array(2)) Console.WriteLine(array(3)) Console.WriteLine(array(4)) End Sub End Module ' run: ' ' 200 ' 878 ' 2 ' 99 ' 1000
Module Module1 Sub Main() Dim array = New Integer(4) {1, 2, 3, 4, 5} For i As Integer = 0 To array.GetLength(0) - 1 Console.WriteLine("{0,2}", array(i)) Next End Sub End Module ' run: ' ' 1 ' 2 ' 3 ' 4 ' 5