Массивы. Программирование в Microsoft Excel

Программирование в Microsoft Excel

Лабораторная работа №4

Массивы

Массивом в языке программирования называется упорядоченная последовательность данных одного типа. Массив может быть одномерным или многомерным. Например, если мы имеем дело с рядом вещественных чисел или рядом строк, то это одномерный массив – для описания порядка расположения его элементов требуется только один ряд чисел. Таблица, состоящая из нескольких строк, будет уже двумерным массивом (так называемой матрицей) – для задания положения элемента в массиве потребуется два числа: номер столбца и номер строки. Вообще, в VBA массив может иметь до 60 размерностей. Массив объявляется с помощью оператора Dim до его первого использования в программе. При описании массива оператор Dim имеет следующий синтаксис:

Dim ИмяМассива (Нижняя граница To Верхняя граница,…)As Тип,…

где ИмяМассива - идентификатормассива, удовлетворяющий правилам именования переменных;

Нижняя граница и Верхняя граница - нижняя и верхняя граница значений индексов (номеров) элемента массива соответствующей размерности. В качестве индексов элементов массива можно использовать только целые числа и выражения с целыми числами. Использовать переменные, элементы массивов и т. д. нельзя. Нижняя граница вместе с То можно не указывать. В этом случае нижней границей по умолчанию считается индекс 0, то есть в массиве А(3) – 4 элемента: А(0), А(1), А(2), А(3). Оператор

Option Base Индекс

для всего модуля устанавливает число (Индекс), которое будет по умолчанию считаться первым индексом массива. Он размещается на самой верхней строке модуля вне всех программ. Например, если указать в модуле

Option Base 1

То массив А будет содержать 3 элемента: А(1), А(2), А(3).

Тип - любойвстроенный или определённый пользователем тип данных.

Например, для использования в программе ряда из 7 чисел

0,98 6,78 45,6 3,46 -100 34 - 45,7

необходимо предварительно объявить одномерный массив из 7 элементов:

Dim V(1 To 7) As Single

а для использования матрицы

двумерный массив размером 3*3:

Dim A (1 To 3, 1 To 3) As Single

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

А(1,1) = 0,98

A(1,2) = -1,23

A(1,3) = 34

и т. д.

Сложим элементы А(1,1) и А(3,3):

S = А(1,1)+А(3,3)

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

Следующий пример объявляет одномерный массив D из 4 элементов и выводит на экран сумму его элементов. Затем с клавиатуры вводится номер элемента, который нужно вывести на экран:

Sub Arrays()

Dim D(1 To 4) As Single

Dim F As Single

Dim i As Integer

D(1) = 0.97: D(2) = 45.6: D(3) = 34.6: D(4) = 230.2

F = D(1) + D(2) + D(3) + D(4)

MsgBox "Сумма элементов массива D: " & CStr(F)

i = InputBox("Введите i от 1 до 4: ")

MsgBox "D(" & CStr(i) & ") = " & CStr(D(i))

End Sub

Дата добавления: 2015-07-11