- •Запись макросов
- •Выполнение макросов
- •Просмотр кода макроса
- •1.4 Редактирование кода макроса
- •1.5 Что нельзя сделать с помощью макросов?
- •1.6 Удаление макросов
- •1.7 Назначение макросов командным кнопкам
- •1.8 Назначение макроса графическим изображениям
- •1.9 Назначение макросов кнопкам панелей инструментов
- •2. Введение в процесс разработки приложений
- •2.1 Типы элементов управления
- •2.2 Вставка элементов управления в рабочий лист
- •2.3 Как осуществляется связь элемента управления с рабочим листом?
- •3. Программирование на vba
- •3.1 Объявление типа переменной
- •3.2 Общие правила написания имени переменной
- •3.3 Описание констант
- •4. Применение условных операторов
- •4.1 Простой условный оператор
- •4.2 Сокращённый условный оператор
- •4.3 Составной условный оператор
- •4.4 Многозначные ветвления
- •4.5 Оператор выбора Select Case
- •4.9 Оператор Exit For
- •4.10 Программирование циклов Do
- •4.11 Цикл Do…While
- •4.12 Цикл Do…Until
4.12 Цикл Do…Until
Повторяющиеся вычисления можно организовать, используя в программах, другой оператор Do…Until. Общий вид в алгоритме этого оператора следующий:
Нет Да
Синтаксис оператора следующий:
Do P1 P2
.
.
Pn;
Loop Until <логическое выражение>
Цикл с оператором Do…Loop Until начинается с выполнения операторов внутри цикла, поэтому цикл, организованный с помощью этого оператора, в любом случае выполнится хотя бы один раз. Затем проверяется логическое выражение и если оно истинно, то осуществляется выход из цикла. Если же значение логического выражения ложно, то выполнение операторов P1, P2, PN повторяется, а затем вновь проверяется логическое выражение.
Другая возможная запись цикла:
Do P1 P2
.
Pn;
Loop While <логическое выражение>
Как будет организованно выполнение операторов при решении задачи: Найти сумму целых чисел от 1 до 50 в цикле Do…Loop While? Переменная К всё так же необходима для подсчёта количества повторений цикла, а так как мы знаем, что слагаемых 50, то логично в качестве условия выхода из цикла задать условие к=50. Таким образом, накопление суммы в ячейке SUM будет происходить до тех пор, пока не будут просуммированы все 50 слагаемых.
1. В редакторе Visual Basic создайте процедуру и назовите её Сумма
2. Введите код процедуры, как на рис. 43
3. Убедитесь, что ответ равен 1275
Рис. 42 Окно с ответом
Рис. 43 Код процедуры Сумма целых чисел
Список литературы
А. Гарнаев Excel, VBA, Internet в экономике , BHV, 2000г.
А. Гарнаев Excel 2000 Разработка приложений, BHV, 2000г.
А. Гарнаев Visual Basic 6.0 Разработка приложений, BHV, 2001г.
Дёмин В. М. «Методы адаптивной автоматизации системы управления средним специальным учебным заведением – Казань, 2002 г.
Подлин Ш. Программирование для Microsoft Excel, Вильямс, -М. 2000г.
Попов В.Б. ТurboPascal для школьников. Версия 7.0 - М.: Финансы и статистика, 1996 г.
Программа развития Красногорского оптико-электронного колледжа на 2002-2003 учебный год. Цели, задачи коллектива, направления и методы их решения.
Программа информатизации колледжа на 2002-2005 годы.
Хальворсон М. Visual Basic для профессионалов, ЭКОМ, - М. 2000