Работа с массивами. Теоретические сведения

Теоретические сведения

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

В VBA массив рассматривается как переменная структурированного типа. Массиву присваивается имя, посред­ством которого

Описание массива определяет имя, размер массива, базовый тип и производится в

Другим способом изменения базового индекса является использование оператора Option Base, который имеет

Массив A, который был рассмотрен, требует одного индекса для указания любого элемента.

Заполнение массива в программе производится поэлементно.
Чаще всего для этого используется

Удобным способом определения одномерных массивов является функция Array, преобразующая список элементов,

Иногда в процессе выполнения программы требуется изменять размер массива. В этом

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

В VBA двумерный массив может быть описан следующим образом:
1.        <имя массива> (, ) [As

Элементы двумерного массива идентифицируются переменными с двумя ин­дексами.
Например: М (3, 5).

Демонстрационные примеры:

1. Приведем фрагмент программы, осуществляющей ввод десяти элементов целочисленного массива А,

2. Напишем программу, содержащую базовые элементы программ для обработки массивов:
заполнение случайными

Option Explicit
Option Base 1
Sub Mass()
Dim M1() As Integer, M2() As Integer,

'Поиск максимального элемента массива M1

max = M1(1)
For i = 2 To

'Поиск минимального элемента массива M1

min = M1(1)
For i = 2 To

'Поиск суммы элементов массива M1, стоящих на четных местах

sum = 0
For

'Поиск произведения ненулевых элементов массива M1

pro = 1
For i = 1

'Поменяем местами 1-ый и 2-ой элементы массива M1

If n >= 2

MsgBox "Массив: " & Str1 & Chr(13) & "Максимальный элемент: "

'Допишем в массив M2 максимальный и минимальный элементы массива Ml

ReDim Preserve

MsgBox "Первый массив: " & Str1 & Chr(13) & "Второй массив:

3. Дан целочисленный линейный массив. Отсортировать его в порядке убывания значений.
Воспользуемся алгоритмом,

Option Explicit
Option Base 1
Sub Сортировка()
Dim A() As Integer, n As Integer,

'Заполнение массива с клавиатуры и формирование строки

For i = 1 To

'Вложенные циклы, организующие сортировку массива

For i = 1 To n -

'Формирование строки, содержащей элементы отсортированного массива

For i = 1 To n
Str2

4. Пример заполнения двумерного динамического массива случайными целыми числами и вывод на

Option Explicit
Option Base 1
Sub Массив_двумерный ()
Dim mass() As Integer, i As

'Заполнение массива случайными значениями 'и накопление элементов массива для последующего вывода значений

For

Сформировать матрицу Пифагора (таблицу  умножения в матричной форме) и вывести ее на

Option Explicit
Option Base 1
Sub Пифагор()
Dim P(1 To 9, 1 To 9)

Пример. Найти сумму элементов матрицы А(3,2)

Пример. Найти произведение положительных и отрицательных элементов матрицы М(6,12)

Контрольный пример Сколько чисел будет просуммировано в результате работы приведенного фрагмента программы?

S

Контрольный пример Чему равно S в результате работы приведенного фрагмента программы?

S =

Контрольный пример Чему равно S в результате работы приведенного фрагмента программы?

For I

Контрольный пример Какой результат вычисляет приведенный фрагмент программы?

P = 1
For I =

Контрольный пример Какой результат вычисляет приведенный фрагмент программы?

S = 0
For I =

Контрольный пример Какой результат вычисляет приведенный фрагмент программы?

S3 = 0
For I =

Контрольный пример Какой результат вычисляет приведенный фрагмент программы?

P = 1
For I =

Пример. Массив D расположен в ячейках A2:F5 ЭТ с именем Массив.

Контрольный пример Сколько чисел будет получено в результате работы приведенного фрагмента программы?

For

Пример. Массив К расположен в ячейках C4:D8 листа Первый. Записать удвоенное

Контрольный пример Укажите адрес ячейки, начиная с которой осуществляется считывание массива М