Перебор массива

Вложенные литералы массива

Можно создать многомерный массив с помощью вложенных литералов массива. Вложенные литералы массива должны иметь измерение и число измерений, называемое ранг, соответствующее результирующему массиву. В следующем примере кода создается двухмерный массив целых чисел с помощью литерала массива.

VB

Dim grid = {{1, 2}, {3, 4}

В предыдущем примере возникла бы ошибка, если бы число элементов во вложенных литералах массива не совпадало. Ошибка также возникла бы, если бы переменная массива была объявлена явно не двухмерной.

VB

Dim values = {({1, 2}), ({3, 4, 5})}

При создании многомерного массива с помощью вложенных литералов массива можно использовать вывод типа. При использовании вывода типа выводимый тип является главным типом для всех значений всех литералов массива какого-либо уровня вложенности. В следующем примере кода создается двухмерный массив типа Double из значений типа Integer и Double.

VB

Dim a = {{1, 2.0}, {3, 4}, {5, 6}, {7, 8}}

При репликации по массиву, вы получаете доступ к каждому элементу массива от наименьшего индекса к наибольшему индексу.

Следующий пример выполняет перебор одномерного массива с помощью оператора Оператор For... Next (Visual Basic). Для каждого измерения массива метод GetUpperBound возвращает максимально допустимое значение индекса. Наименьшее значение индекса всегда равно 0.

VB

Dim numbers = {10, 20, 30} For index = 0 To numbers.GetUpperBound(0) Debug.WriteLine(numbers(index))Next' Output:' 10' 20' 30

Следующий пример выполняет перебор многомерного массива с помощью оператора For...Next. Метод GetUpperBound имеет параметр, который определяет измерение. GetUpperBound(0) возвращает высокое значение индекса для первого измерения, а GetUpperBound(1) возвращает высокое значение индекса для второго измерения.

VB

Dim numbers = {{1, 2}, {3, 4}, {5, 6}} For index0 = 0 To numbers.GetUpperBound(0) For index1 = 0 To numbers.GetUpperBound(1) Debug.Write(numbers(index0, index1).ToString & " ") Next Debug.WriteLine("")Next' Output ' 1 2 ' 3 4 ' 5 6

Следующий пример выполняет перебор одномерного массива с помощью оператора Оператор For Each... Next (Visual Basic).

VB

Dim numbers = {10, 20, 30} For Each number In numbers Debug.WriteLine(number)Next' Output:' 10' 20' 30

Следующий пример выполняет перебор многомерного массива с помощью оператора For Each...Next. Однако возможности управления элементами многомерного массива будут шире при использовании вложенного оператора For…Next, как показано в предыдущем примере, вместо оператора For Each…Next.

VB

Dim numbers = {{1, 2}, {3, 4}, {5, 6}} For Each number In numbers Debug.WriteLine(number)Next' Output:

Дата добавления: 2015-08-31