Массивы массивов

Массивы как возвращаемые значения и параметры

Чтобы вернуть массив из процедуры Function, укажите тип данных массива и число измерений в качестве возвращаемого типа Оператор Function (Visual Basic).Внутри функции объявите локальную переменную массива с тем же числом измерений и типом данных. В Оператор Return (Visual Basic) включите локальную переменную массива без скобок.

Чтобы определить массив в качестве параметра в процедуре Sub или Function, задайте параметр как массив с указанными типом данных и количеством измерений.В вызове процедуры отправьте переменную массива с тем же типом данных и количеством измерений.

В следующем примере функция GetNumbers возвращает Integer(). Этот тип массива — одномерный массив типа Integer. Процедура ShowNumbers принимает аргумент Integer().

VB

Public Sub Process() Dim numbers As Integer() = GetNumbers() ShowNumbers(numbers)End Sub Private Function GetNumbers() As Integer() Dim numbers As Integer() = {10, 20, 30} Return numbersEnd Function Private Sub ShowNumbers(numbers As Integer()) For index = 0 To numbers.GetUpperBound(0) Debug.WriteLine(numbers(index) & " ") NextEnd Sub ' Output:

В следующем примере функция GetNumbersMultiDim возвращает Integer(,). Этот тип массива — одномерный массив типа Integer. ПроцедураShowNumbersMultiDim принимает аргумент Integer(,).

VB

Public Sub ProcessMultidim() Dim numbers As Integer(,) = GetNumbersMultidim() ShowNumbersMultidim(numbers)End Sub Private Function GetNumbersMultidim() As Integer(,) Dim numbers As Integer(,) = {{1, 2}, {3, 4}, {5, 6}} Return numbersEnd Function Private Sub ShowNumbersMultidim(numbers As Integer(,)) For index0 = 0 To numbers.GetUpperBound(0) For index1 = 0 To numbers.GetUpperBound(1) Debug.Write(numbers(index0, index1).ToString & " ") Next Debug.WriteLine("") NextEnd Sub ' Output

Массив, который содержит другие массивы как элементы, называется массивом массивов. Массив массивов и каждый элемент в массиве массивов могут иметь одно или несколько измерений. Иногда структура данных в приложении является двухмерной, но не прямоугольной.

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

VB

' Declare the jagged array.' The New clause sets the array variable to a 12-element' array. Each element is an array of Double elements.Dim sales()() As Double = New Double(11)() {} ' Set each element of the sales array to a Double' array of the appropriate size.For month As Integer = 0 To 11 Dim days As Integer = DateTime.DaysInMonth(Year(Now), month + 1) sales(month) = New Double(days - 1) {}Next month ' Store values in each element.For month As Integer = 0 To 11 Dim upper = sales(month).GetUpperBound(0) For day = 0 To upper sales(month)(day) = (month * 100) + day NextNext

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