Синтаксис

Do [While Условие]

[Инструкции]

[Exit Do]

[Инструкции]

Loop

Повторяет выполнение набора инструкций, пока условие имеет значение True. Условие проверяется после выполнения инструкции, по крайней мере, один раз. Альтернативный способ выхода из цикла предоставляет инструкция «Exit Do».

Схема алгоритма изображена на Error: Reference source not found.

Пример

Ввести число от 0 до 20. В случае ошибки выводить замечание.

Схема алгоритма

Рис. 4. Алгоритм ввода числа с выводом замечания в случае ошибки

Текст программы

Sub InputNum2() ‘Начало процедуры Dim Num As Integer ‘Переменная, в которую вводим число Num = InputBox("Введите число от 0 до 20") ‘Ввод числа Do While (Num <= 0) Or (Num >= 20) ‘Если выполняется – цикл Num=InputBox("Будте внимательны! Число от 0 до 20.") ‘Ввод числа, при этом выдаётся замечание Loop ‘Конец цикла MsgBox (Num) ‘Вывод числа End Sub ‘Конец процедуры

2.1.6Do — Loop While

Цикл «Do – Loop While» относится к циклам с постусловием. В отличие от цикла «Do - Loop Until» выход из цикла происходит, когда условие, стоящее в заголовке, не выполняется. То есть это условие является условием продолжения работы цикла.

С интаксис

Do [Инструкции] [Exit Do] [Инструкции] Loop [While Условие]

Повторяет выполнение набора инструкций, пока условие имеет значение True. Сначала проверяется условие, а потом выполняется инструкция. Альтернативный способ выхода из цикла предоставляет инструкция «Exit Do».

Схема алгоритма изображена на Error: Reference source not found.

2.1.7While — Wend

Цикл «While - Wend» является реализацией классического цикла с предусловием, в котором заданное условие является условием продолжения работы цикла. Фактически этот цикл дублирует цикл «Do While - Loop», при этом обладает меньшими возможностями.

Синтаксис

While Условие [Инструкции] Wend

Выполняет последовательность инструкций, пока заданное условие имеет значение True

Схема алгоритма соответствует схеме алгоритма цикла «Do While - Loop» (Error: Reference source not found)

2.2Массивы

Массив представляет собой совокупность переменных одного типа, объединённых общим именем. Доступ к каждому элементу массива осуществляется по его порядковому номеру – индексу.

Массив относится к структурированному типу данных.

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

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

Нумерация элементов массива осуществляется начиная с 0 (по умолчанию) или с 1 (После применения инструкции Option Base = 1). Кроме того, при описании массива можно указать любое начальное значение индекса.

Dim R(10) As Integer ‘описание массива с именем «R» из 11 целых чисел. Номера элементов изменяются от 0 до 10.

R (1) =2 ‘присваивает второму элементу массива значение 2

A=R (10) ‘присваивает значение последнего элемента массива переменной «A».

Dim B (1 To 10, 1 To 16) As Single ‘описание двумерного массива вещественных чисел размерности 10х16, номера элементов начинаются с единицы.

Если при описании массива указана размерность, память под элементы массива отводится перед началом выполнения программы. В случае, когда размер массива заранее неизвестен, имеется возможность создать такой массив, размер которого задаётся и может изменяться в процессе выполнения программы. Такой тип массива называется динамическим. Работа с динамическими массивами требует известной аккуратности, так как по ошибке или недосмотру можно задать размер массива, на который у операционной системы может не хватить свободной памяти. В результате это может привести не только к аварийному завершению программы, но и к сбою в операционной системы и её аварийному завершению.

Dim D () As Single. ‘Описание динамического массива

Для определения размерности массива обязательно использование функции ReDim.