'Visual Basic 2008/2010 System.Array Collecties Arrays
Option Strict On
Option Explicit On

Class Example1
    Public Shared Sub Main()
        Dim array1 As Integer()
        '
        array1 = New Integer() {1, 2, 3}                                   ' (1)
        Dim array2 As Integer() = New Integer() {4, 5, 6}
        Dim array3 As Integer() = {4, 5, 6}                                ' (2)
        '
        Dim array4 As Integer() = array1                                   ' (3)
        '
        Dim array5 As System.Array
        array5 = array3                                                    ' (4)
        array5 = New String() {"abc", "def"}                               ' (4)
    End Sub
End Class
Class Example2
    Public Shared Sub Main()
        ' information retrieval :
        Dim array1 As Byte(,) = New Byte(,) {{1, 2, 3}, {4, 5, 6}}
        ' elements-count :
        Console.WriteLine(array1.Length)           ' 6
        ' dimensions-count :
        Console.WriteLine(array1.Rank)             ' 2
        ' length second dimension :
        Console.WriteLine(array1.GetLength(1))     ' 3
        ' lowerbound first dimension :
        Console.WriteLine(array1.GetLowerBound(0)) ' 0
        ' upperbound second dimension :
        Console.WriteLine(array1.GetUpperBound(1)) ' 2
        '
        ' searching in a 1-dimensional array :
        Dim array2 As Integer() = New Integer() {1, 2, 3, 2, 5}
        Dim searchValue As Integer = 2
        ' first index of element with value 2 in 'array2' :
        Console.WriteLine(Array.IndexOf(array2, searchValue))        ' 1
        ' last index starting at index 3 of element with value 2 in 'array2' :
        Console.WriteLine(Array.LastIndexOf(array2, searchValue, 3)) ' 3
        ' first index starting at index 2 of element with value 2 in 'array2',
        ' searching over a length of 1 element :
        Console.WriteLine(Array.IndexOf(array2, searchValue, 2, 1))  ' -1
        array2(3) = 4                                                     ' (1)
        ' binary search of element with value 2 in 'array2' :
        Console.WriteLine(Array.BinarySearch(array2, searchValue))   ' 1
        '
        ' reversing an array :
        PrintArray(array2)   ' "1 - 2 - 3 - 4 - 5 - "
        Array.Reverse(array2)
        PrintArray(array2)   ' "5 - 4 - 3 - 2 - 1 - "
        ' reversing 3 elements in 'array2' starting at index 1 :
        Array.Reverse(array2, 1, 3)
        PrintArray(array2)   ' "5 - 2 - 3 - 4 - 1 - "
        '
        ' sorting an array :                                                (2)
        Dim array3 As String() = New String() {"Paul", "John", "Jane"}
        PrintArray(array3)   ' "Paul - John - Jane - "
        Array.Sort(array3)
        PrintArray(array3)   ' "Jane - John - Paul - "
        Array.Reverse(array3)
        PrintArray(array3)   ' "Paul - John - Jane - "
        Array.Sort(array3, 1, 2)
        PrintArray(array3)   ' "Paul - Jane - John - "
        '
        ' clearing an array :
        ' clearing 2 elements of 'array3' starting at index 0 :
        Array.Clear(array3, 0, 2)
        PrintArray(array3)   ' " -   - John - "
        '
        ' copying elements of an array :
        Dim array4 As Byte() = New Byte() {1, 2, 3, 4, 5, 6, 7, 8, 9}
        Dim array5(5) As Byte                                             ' (3)
        Array.Copy(array4, array5, 6)
        PrintArray(array5)   ' "1 - 2 - 3 - 4 - 5 - 6 - "
        Array.Copy(array4, 2, array5, 1, 3)
        PrintArray(array5)   ' "1 - 3 - 4 - 5 - 5 - 6 - "
        '
        Console.ReadLine()
    End Sub
    Public Shared Sub PrintArray(ByVal array As Array)
        For Each element As Object In array                               ' (4)
            If element IsNot Nothing Then                                 ' (5)
                Console.Write(element.ToString() & " - ")
            End If
        Next
        Console.WriteLine()
    End Sub
End Class
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2010 - Alle rechten voorbehouden.