Синтаксис
ReDim [Preserve] ИмяПеременной (Индексы) [As Тип] [, ИмяПеременной (Индексы) [As Тип]]
Аргументы
Preserve-ключевое слово, используемое для сохранения данных в существующем массиве при изменении значения последней размерности
ИмяПеременной- Имя переменной, удовлетворяющее стандартным правилам именования переменных
Индексы- Размерности переменной массива; допускается описание до 60 размерностей. Аргумент индексы использует следующий синтаксис: [Нижний То] Верхний [, [Нижний То] Верхний]. Если нижний индекс не задан явно, нижняя граница массива определяется инструкцией Option Base. Если отсутствует инструкция option Base, нижняя граница массива равняется нулю
Тип- Тип данных массива
Для создания массива, значения элементов которого известны, можно применять функцию «Array».
Синтаксис
Array (СписокАргументов)
Возвращаемое значение
Возвращает массив типа variant.
Аргументы
СписокАргументов представляет разделенный запятыми список значений, присваиваемых элементам массива.
Пример
Описание массива «День», элементам которого присвоены сокращённые названия дней недели:
Dim День As Variant День = Array ("Пн", "Вт", "Ср", "Чт", "Пт")
Для определения номеров первого и последнего элементов массива используются функции «LBound» и «UBound».
Синтаксис
LBound (ИмяМассива [, Размерность])
UBound (ИмяМассива [, Размерность])
Возвращаемое значение
Минимальное и максимальное допустимое значение указанной размерности массива.
Аргументы
ИмяМассива— имя переменной массива
Размерность— целое число, указывающее размерность, нижнюю или верхнюю границу которой возвращает функция. Для первой размерности следует указать 1, для второй 2 и т. д. Если аргумент Размерность опущен, подразумевается значение 1
Функция «Erase» служит для очистки или повторной инициализации массива.
Синтаксис
EraseСписокМассивов
Повторно инициализирует элементы массивов фиксированной длины и освобождает память, отведенную для динамического массива,
Аргументы
СписокМассивовпредставляет имена одной или нескольких очищаемых переменных массивов, разделенных запятой. ИнструкцияEraseустанавливает элементы массивов фиксированной длины следующим образом: массив чисел или строк фиксированной длины (присваивает каждому элементу значение 0), массив строк переменной длины (присваивает каждому элементу значение пустой строки), массив типа variant (присваивает каждому элементу значениеEmpty).Eraseосвобождает память, используемую динамическими массивами. Перед тем как из программы вновь появится возможность сослаться на динамический массив, необходимо переопределить размерности переменной массива с помощью инструкции ReDim.
Задание
Разработать алгоритм и программу на VBAпо варианту.
Ввести программу в редактор VBAи добиться её выполнения.
Подготовить отчёт.
Содержание отчёта
Титульный лист.
Индивидуальное задание.
Схема алгоритма.
Текст программы с комментариями.
Ответы на контрольные вопросы.
Пример выполнения работы
Задание
Сформируйте массив целых чисел из диапазона [-x,x],x<=100, длинойN<=20 и определите произведение ненулевых элементов. 1 -2
Схема алгоритма
Рис. 5. Алгоритм программы вычисления произведения ненулевых элементов массива.
Текст программы
Sub Example()
Dim A(1 To 20), x, i, N As Integer, P As Long
Dim D As Boolean, S As String
N = InputBox("Введите длину массива от 1 до 20")
Do While (N < 1) Or (N > 20)
N = InputBox("Будте внимательны! Число от 1 до 20.")
Loop
x = InputBox("Введите диапазон чисел в пределах 100")
Do While (Abs(x) < 1) Or (Abs(x) > 100)
x = InputBox("Будте внимательны! Число от 1 до 100.")
Loop
Randomize
For i = 1 To N
A(i) = Int(Rnd * 2 * x - x) ‘Целые случайные числа из [-x,x]
Next i
P = 1‘Произведение начинаем вычислять с 1
D = True‘Если не произойдёт переполнения, то останетсяTrue
For i = 1 To N‘Цикл для всех элементов
If (A(i) <> 0) Then ‘Если элемент ненулевой
If Abs(2147483647 / A(i)) > Abs(P) Then ‘Если тип Long _
P = P * A(i) ‘ не переполнится, перемножаем.
Else‘ Иначе
D = False‘Если переменная типаLongпереполнится
P = 0‘правильно произведение не вычислить…
End If
End If
Next i