- •Содержание
- •Введение
- •1 Основные понятия языка программирования vba
- •1.1 Элементы языка
- •1.2 Константы
- •1.3 Идентификаторы
- •StrMyName, I, intNumOne, Номер, Max_Len и т.П.
- •1.4 Переменные
- •1.5 Выражения и операции
- •1.6 Массивы
- •1.7 Строки
- •2 Структура программы на vba
- •2.1 Оператор комментария
- •2.2 Оператор присваивания
- •2.3 Оператор вывода и диалоговые окна ввода/вывода информации
- •2.4 Оператор безусловного перехода
- •2.5 Оператор условного перехода
- •2.6 Оператор множественного выбора
- •2.7 Операторы цикла
- •If условие Then Exit For
- •If условие Then Exit Do
- •2.8 Обработка информационных массивов
- •2.9 Процедуры и функции
- •2.10 Обработка строковой информации
- •3 Элементы среды разработки vba
- •3.1 Панель инструментов Стандартная
- •3.2 Элементы управления
- •Лабораторная работа №1 Тема: Инструментальная среда языка программирования vba
- •1) Активизируйте редактор vba.
- •2) Ознакомьтесь с интерфейсом редактора vba.
- •3) Добавьте в окно проекта Стандартный модуль командой меню Вставка/Модуль (Insert/Module).
- •4) Добавьте Форму в окно проекта командой меню Вставка/ UserForm (Insert/ UserForm).
- •Лабораторная работа №2 Тема: Разработка программ линейной структуры в среде vba
- •1) Способ представления алгоритма в виде блок-схемы.
- •2) Линейная структура программы в vba.
- •5) Выполните ввод числовых значений:
- •6) Программа выведет на экран монитора диалоговое окно с результатом вычислений:
- •Индивидуальные задания для самостоятельной работы
- •Задание 1. По предложенной блок-схеме разработать программу. Используя функцию Round, округлить результаты вычислений.
- •Варианты задания 3
- •Лабораторная работа №3 Тема: Разработка программ разветвленной структуры в среде vba
- •1) Понятие разветвленной вычислительной структуры.
- •Индивидуальные задания для самостоятельной работы
- •Лабораторная работа № 4 Тема: Разработка программ циклической структуры в среде vba
- •1) Понятие циклического вычислительного процесса.
- •2) Реализовать данную программу в среде vba Microsoft Excel:
- •3) Внести изменения в программу Пример4 так, чтобы было возможно вычисление суммы любого количества чисел «2».
- •4) Реализовать данную программу в среде vba Microsoft Excel:
- •7) Реализовать данную программу (рис. 22) в среде vba Microsoft Excel. Выполнить вывод заголовков и результатов в окно Immediate:
- •Индивидуальные задания для самостоятельной работы
- •Лабораторная работа № 5 Тема: Разработка программ обработки информационных массивов в среде vba
- •1) Порядок обработки информационного массива.
- •4) Реализовать данную программу в среде vba Microsoft Excel:
- •Лабораторная работа №6 Тема: Разработка программ смешанной структуры в среде vba
- •2) Реализовать данную программу в среде vba Microsoft Excel:
- •Индивидуальные задания для самостоятельной работы
- •Блок-схема алгоритма:
- •Литература
- •Правила изображения блок-схем
- •Указатель
2.7 Операторы цикла
Цикл - это алгоритмическая структура, при помощи которой реализуется многократное повторение блоков операторов. Операторы, повторяющиеся в цикле, называются телом цикла. Существует два основных вида циклов: цикл со счётчиком и цикл с условием.
1) Цикл со счётчиком используется в том случае, когда количество повторов заданного блока операторов известно заранее. Для организации цикла с известным числом повторений используется оператор For... Next.
Синтаксис этого циклического оператора таков:
For СчетчикЦикла= НачальноеЗначение То КонечноеЗначение [Step Шаг]
Операторы тела цикла
Next [СчетчикЦикла]
СчетчикЦикла |
- числовая переменная, используемая как счетчик повторений цикла; |
НачальноеЗначение |
- начальное значение счетчика цикла; |
КонечноеЗначение |
- конечное значение счетчика цикла; |
Шаг |
-приращение счетчика при каждом шаге цикла (если параметр Step не указан, то по умолчанию значение приращения равно 1); |
Операторы тела цикла |
- операторы, выполнение которых нужно повторить определенное количество раз. |
Оператор Next увеличивает значение счетчика (параметра) цикла на заданный шаг и передает управление на продолжение цикла, то есть на оператор For, где анализируется полученное значение счетчика цикла. Текущее значение счетчика цикла сравнивается с конечным значением. Если текущее значение параметра цикла больше конечного его значения, то происходит выход из цикла на оператор, следующий за оператором Next.
Например, программа для Microsoft Excel, которая записывает в столбец А рабочего листа, начиная с клетки А1 (Cells(1, 1) ) числа от 1 до 10:
Sub One_To_Ten()
For i = 1 To 10
Cells(i, 1) = i
Next i
End Sub
Иногда бывает необходимо завершать работу цикла при выполнении какого-либо дополнительного условия. В этом случае внутри цикла следует использовать оператор Exit For. Синтаксическая конструкция оператора:
If условие Then Exit For
2) Цикл с условием применяется тогда, когда число повторений операторов тела цикла заранее неизвестно. Существует четыре разновидности данной конструкции, основанных на двух операторах цикла с условием: Do ... While и Do ... Until, они могут быть с предусловием или с постусловием.
Синтаксическая конструкция цикла Do … While:
Цикл с предусловием |
Цикл с постусловием |
Do While УСЛОВИЕ Тело цикла Loop |
Do Тело цикла Loop While Условие |
Do - ключевое слово, обозначающее начало цикла;
While - ключевое слово, указывающее тип цикла;
УСЛОВИЕ – логическое выражение, принимающее значение True или False;
Loop - ключевое слово, указывающее на окончание цикла.
Цикл Do ... While выполняется до тех пор, пока УСЛОВИЕ имеет значение True.
Например, прекратить накопление суммы, как только она станет больше 10.
Sum = 2: j = l
Do While Sum < 10
Sum = Sum + j
j = j + l
Loop
Text1.Text = Sum
В результате выполнения этой программы в текстовом окне будет показано вычисленное значение переменной Sum, равное 12.
Синтаксическая конструкция цикла Do … Until:
Цикл с предусловием |
Цикл с постусловием |
Do Until УСЛОВИЕ Тело цикла Loop |
Do Тело цикла Loop Until Условие |
Цикл Do … Until выполняется до тех пор, пока выражение условия имеет значение False.
Например, прекратить накопление суммы, как только она станет больше 10.
Sum = 2: j = l
Do
Sum = Sum + j
j = j + l
Loop Until Sum >10
Text1.Text = Sum
В результате выполнения этой программы в текстовом окне будет показано вычисленное значение переменной Sum, равное 12.
Иногда бывает необходимо прервать цикл с условием, если выполняется какое-либо дополнительное условие. Это может быть сделано с помощью оператора Exit Do. Синтаксическая конструкция оператора: