Присвоение значений многомерному массиву

@a13428711 · Регистрация: 09.02.2016

Author24 — интернет-сервис помощи студентам

Здравствуйте. Подскажите пожалуйста, как организовать присвоение многомерному массиву значений.
Для одномерного массива можно сделать так:

Visual Basic

1 2	Dim PodFindingText PodFindingText = Array("PodNameI", "PodNameR", "PodNameT", "PodRankR", "PodRankT", "PodUnit")

но если для многомерного массива использовать подобную конструкцию, то выходит ошибка:

Visual Basic

1 2	Dim PodFindingText PodFindingText [B](0)[/B] = Array("PodNameI", "PodNameR", "PodNameT", "PodRankR", "PodRankT", "PodUnit")

Можно ли как-нибудь, подобным образом, заполнять сразу одно измерение многомерного массива?

@Казанский · 24.02.2016, 21:59

Сообщение от a13428711

Можно ли как-нибудь, подобным образом, заполнять сразу одно измерение многомерного массива?

Многомерного массива в истинном значении этого слова - нет. Но можно создать структуру "массив массивов", с которым такой метод прокатит:

Visual Basic

Dim PodFindingText(0 To 2)
  PodFindingText(0) = Array("PodNameI", "PodNameR", "PodNameT", "PodRankR", "PodRankT", "PodUnit")
  PodFindingText(1) = Array("мама", "мыла", "раму")
  'PodFindingText(2)=...
  MsgBox PodFindingText(1)(1) 'мыла

Обращаться к элементу этой структуры надо PodFindingText(i)(j) . Внутренние массивы могут быть разного размера, разного типа.

SoftIce · 24.02.2016, 23:08

Если обернуть в функцию,то можно будет обращаться к массиву "по-человечески"

Visual Basic

Private Sub Command1_Click()
 
    MsgBox MyArr(1, 1) 'мыла
    
End Sub
 
Private Function MyArr(i, j)
    Dim s(1)
    s(0) = Array("PodNameI", "PodNameR", "PodNameT", "PodRankR", "PodRankT", "PodUnit")
    s(1) = Array("мама", "мыла", "раму")
    MyArr = s(i)(j)
End Function

@Sasha_Smirnov · 25.02.2016, 04:12

Обычное заполнение (случайными буквами) в цикле: Написать блок-схему для такой задачи :"Найти элемент матрицы(или одномерного массива) с наименьшим индексом"

Но можно, как уже сказал SoftIce, заполнить заданными значениями: Вычислить сумму L положительных элементов квадратной матрицы

@a13428711 · 25.02.2016, 08:12 **[ТС]**

Сообщение от Казанский

Dim PodFindingText(0 To 2)
* PodFindingText(0) = Array("PodNameI", "PodNameR", "PodNameT", "PodRankR", "PodRankT", "PodUnit")

Забыл сказать, массив у меня объявляется в Declaration как Public. Там вроде границы задавать не получается, а без них схема выдает ошибку.

Добавлено через 7 минут

Сообщение от SoftIce

Если обернуть в функцию,то можно будет обращаться к массиву "по-человечески"

А если этот массив является аргументом функции? Получается аргументом функции будет другая функция. Допустимо ли такое?

SoftIce · 25.02.2016, 08:43

Сообщение от a13428711

Допустимо ли такое?

Нет.

Сообщение от a13428711

Там вроде границы задавать не получается, а без них схема выдает ошибку.

Можно пример кода?

@Sasha_Smirnov · 25.02.2016, 23:21

Пример, как задать только 1-й столбец: Сформировать матрицу размера M × N, у которой первый столбец совпадает с исходным набором чисел (от vlaste) или только диагонали: Найти произведение элементов главной диагонали и сумму элементов побочной диагонали (тема FoodIsGood).

Excel же позволяет сформировать массив прямо из диапазона (скажем, CurrentRegion) таблицы: Заполнить матрицу числами по определенному правилу (пост: Апострофф, код: 101).

Иногда достаточно этот диапазон просто чем-то заполнить (как в проекте Квадратура): Преобразование матрицы 6х3 в две квадратные матрицы 3х3 (тема AHDREY33), а то и просто выделить (как в проекте Апертура.xls с подачи нашего немногословного zargar’а)!

@Sasha_Smirnov 5562 / 1368 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	25.02.2016, 04:12	4
	Обычное заполнение (случайными буквами) в цикле: Написать блок-схему для такой задачи :"Найти элемент матрицы(или одномерного массива) с наименьшим индексом" Но можно, как уже сказал SoftIce, заполнить заданными значениями: Вычислить сумму L положительных элементов квадратной матрицы 0

@a13428711 4 / 4 / 1 Регистрация: 09.02.2016 Сообщений: 264
	25.02.2016, 08:12 [ТС]	5
	Сообщение от Казанский Dim PodFindingText(0 To 2) * PodFindingText(0) = Array("PodNameI", "PodNameR", "PodNameT", "PodRankR", "PodRankT", "PodUnit") Забыл сказать, массив у меня объявляется в Declaration как Public. Там вроде границы задавать не получается, а без них схема выдает ошибку. Добавлено через 7 минут Сообщение от SoftIce Если обернуть в функцию,то можно будет обращаться к массиву "по-человечески" А если этот массив является аргументом функции? Получается аргументом функции будет другая функция. Допустимо ли такое? 0

SoftIce es geht mir gut 11272 / 4756 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	25.02.2016, 08:43	6
	Сообщение от a13428711 Допустимо ли такое? Нет. Сообщение от a13428711 Там вроде границы задавать не получается, а без них схема выдает ошибку. Можно пример кода? 0

@Sasha_Smirnov 5562 / 1368 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	25.02.2016, 23:21	7
	Пример, как задать только 1-й столбец: Сформировать матрицу размера M × N, у которой первый столбец совпадает с исходным набором чисел (от vlaste) или только диагонали: Найти произведение элементов главной диагонали и сумму элементов побочной диагонали (тема FoodIsGood). Excel же позволяет сформировать массив прямо из диапазона (скажем, CurrentRegion) таблицы: Заполнить матрицу числами по определенному правилу (пост: Апострофф, код: 101). Иногда достаточно этот диапазон просто чем-то заполнить (как в проекте Квадратура): Преобразование матрицы 6х3 в две квадратные матрицы 3х3 (тема AHDREY33), а то и просто выделить (как в проекте Апертура.xls с подачи нашего немногословного zargar’а)! 0