- •Введение
- •Рабочая программа
- •1. Контрольная работа №1 Тема - «Технические и программные средства обработки информации»
- •Часть 1. Текстовый редактор word
- •Создать текстовый документ – Вычисления в таблице Word.
- •Создать текстовый документ – Форматирование текста в Word.
- •Часть 2. Табличный процессор Excel
- •Создать документ в Excel – Вычисление функций в Excel
- •Создать документ в Excel – Графики и функции в Excel
- •Темы для самостоятельного изучения.
- •Раздел 1.
- •Раздел 2. «Проектирование и управление базами данных».
- •Раздел 3. «Автоматизированное программирование объектов обработки данных из бд».
- •Добавление или редактирование макроса для элемента управления ActiveX (Microsoft Office 2003)
- •Добавление или редактирование макроса для элемента управления ActiveX (Microsoft Office 2007)
- •Вариант 1
- •Раздел 2.
- •Товар, артикул, оптовая цена, розничная цена, фирма - производитель, поступило товара, заказывалось товара, дата поступления, дата заказа, единица, измерения.
- •Раздел 3.
- •Вариант 2
- •Раздел 2.
- •Гаражный номер машины, государственный номер машины, адрес движения, расстояние в км, стоимость за 1 км, время выезда со склада, дата выезда со склада.
- •Раздел 3.
- •Вариант 3
- •Раздел 2
- •Название подразделения, Фамилия, Имя, Отчество, должность, домашний адрес, район, инн, номер страхового свидетельства, количество детей.
- •Раздел 3
- •Раздел 2
- •Наименование материала, цена материала, единица измерения, название цеха, номер документа, количество отпущено, дата отпуска.
- •Раздел 3.
- •Темы для самостоятельного изучения
- •Раздел 2.
- •Раздел 3.
- •2. Методические материалы
- •2.1 Работа в среде Microsoft Word Область применения и возможности
- •Режимы представления документа на экране
- •Режим “во весь экран” позволяет представить текст в максимально увеличенном виде. Команда для перехода в данный режим – Вид/ Во весь экран;
- •Создание нового документа
- •Открытие существующего документа
- •Выделение фрагмента текста
- •Проверка правописания
- •Вставка символов, отсутствующих на клавиатуре.
- •Автозамена
- •Автотекст
- •Печать документа
- •Отмена действия
- •Оформление документа Вставка содержимого одного документа в другой
- •Работа с несколькими документами
- •Табуляция
- •Использование Колонок
- •Перенос слов
- •Разбиение документа на страницы
- •Вставка формул
- •Разделы в документе
- •Структура документа
- •Использование стилей Создание оглавлений на основе стилей заголовков
- •Оформление текстов с помощью стилей
- •Определение текущего стиля
- •Создание стиля текста
- •Применение стиля в документе
- •Изменение стиля документа
- •Шаблоны документов
- •Создание нового файла на основе выбранного шаблона
- •Создание совершенно нового шаблона
- •Сохранение документа в виде шаблона
- •2.2 Работа в среде Microsoft Excel
- •Запуск и завершение работы в Excel
- •Окно Excel и его элементы
- •Основы построения и редактирования таблиц
- •Ввод данных и редактирование содержимого ячейки
- •Оформление таблиц
- •1 Этап – создание таблицы, рис. 2.
- •3 Этап – оформление и вставка рисунка
- •Дополнительные возможности Excel Использование списков в таблицах Применение форм и фильтров при работе со списками
- •1. Для работы со списком использовать исходные данные - таблицу, рис.9., в которой поле с именем Оборот является расчетным (Цена * Количество).
- •Раздел 2. «Проектирование и управление базами данных»
- •2.I. Разработка структуры базы данных.
- •2.2 Работа с субд Microsoft Access.
- •3.1. Запросы выборки.
- •3.2. Запросы с вычисляемым полем.
- •3.3. Запросы с группировкой.
- •4. Работа с формами.
- •5. Работа с отчетами.
- •Раздел3. «Автоматизация решения практических задач с использованием языка программирования высокого уровня vba в приложениях windows»
- •3.1 Алгоритмизация вычислительных процессов Основные понятия об алгоритмизации задач
- •Алгоритм и его свойства
- •Алгоритм линейной структуры
- •3.2 Краткие сведения об основах программирования. Введение в язык программирования высокого уровня Visual Basic for Applications(vba).
- •3.3 Порядок работы с программами vba
- •3.4 Программирование алгоритмов линейной структуры
- •3.5 Программирование алгоритмов разветвляющейся структуры
- •3.6 Программирование алгоритмов циклической структуры
- •3.7 Массивы и типовые алгоритмы их обработки.
- •3.8 Демонстрационные примеры
- •Контрольная работа №1
- •Номер студенческого билета …
3.6 Программирование алгоритмов циклической структуры
С помощью инструкций присваивания и условного перехода можно реализовать сколь угодно сложный алгоритм. Однако на практике выполнение часто повторяющихся последовательностей действий и обработку массивов целесообразнее выполнять с помощью специальных инструкций цикла. Циклы являются основой алгоритмизации задач при их решении на компьютере. Циклы бывают двух видов: с фиксированным числом повторений и циклы с условием - с неизвестным числом повторений. Каждый цикл состоит из заголовка цикла и тела цикла – повторяемого блока операторов. Тело цикла может состоять из одного или нескольких инструкций. В циклах с условием необходимо задавать начальное значение параметра цикла до входа в цикл и его изменение в теле цикла.
В VBA применяются следующие способы организации таких циклов:
Do While < Условие> - Loop
Синтаксис:
Do While < Условие >
<Инструкции>
[Exit Do]
<Инструкции>
Loop
Цикл выполняется до тех пор, пока <Условие> истинно.
< условие> - логическое выражение, принимающее значение True(истина) или False(ложь).
Необязательная инструкция Exit Do предназначена для прекращения цикла и передачи управления Loop - конец цикла. Цикл с такой организацией называют также циклом с предусловием. Минимальное число повторений этого цикла – 0. Выполнение цикла с предусловием состоит из следующих шагов:
Проверяется <условие>. Если <условие> имеет значение True, то выполняются инструкции, составляющие тело цикла (до оператора Loop) столько раз, пока<условие> не примет значение False.
Как только <условие> получит значение False, осуществится выход из цикла, т. е. переход к оператору, следующему за Loop.
Пример 1. Вычислить N!, при N =10
Текст программы
Sub Factorial_1()
Dim N, Fact As Long ‘ Объявление переменных N и Fact
Fact=1 ‘Начальное значение переменной Fact
N=1 ’ Начальное значение параметра цикла
Do While N<=10 ‘Начало цикла, Проверка условия
Fact= Fact *N
MsgBox Fact, Vbinformation,”Вывод текущего значения”
N=N+1 ’ Изменение параметра цикла
Loop ‘ конец цикла
MsgBox “fact=” & fact, Vbinformation, “Результат”
End Sub
Цикл структуры Do - Loop Until <Условие >
Do
< Инструкции >
[Exit Do]
< Инструкции >
Loop Until <Условие >
Цикл повторяется, пока условие ложно. Как только условие станет истинным, цикл прекращается. Цикл с такой организацией называют также циклом с постусловием, рис.8.4.б)
В циклах с постусловием выполняются все инструкции тела цикла, а затем проверяется условие, поэтому цикл выполнится хотя бы один раз.
Рассмотрим предыдущий пример с новой организацией цикла.
Пример 2. Вычислить и напечатать N! Для N =10.
Текст программы
Sub Factorial_2()
'Объявление переменных N,Fact
Dim N,Fact As Long
Fact = 1 'Начальное значение факториала
N = 1 'Начальное значение параметра цикла n
Do
Fact = Fact * N 'Вычисление факториала
'Вывод текущего значения факториала
MsgBox Fact,vbInformation, "Вывод текущего значения "
N = N + 1 'Изменение параметра цикла
Loop Until N >= 10
'Вывод результата
MsgBox "fact=" & fact,vbInformation, "Результат "
End Sub
Помимо рассмотренных структур имеются их модификации:
с предусловием Do Until < Условие>– Loop
Синтаксис структуры
_ Do Until < Условие>
< Инструкции >
[Exit Do]
< Инструкции >
Loop
Until указывает на то, что цикл выполняется до тех пор, пока условие не станет истинным. Минимальное число повторений цикла 0.
С постусловием Do - Loop While <Условие>
Синтаксис структуры
Do
<Инструкции>
[Exit Do ]
<Инструкции>
Loop While <Условие>
Цикл выполняется хотя бы один раз, проверка < условия> выполняется в конце цикла
While <условие > - Wend.
Синтаксис структуры
While <условие >
<Инструкции >
Wend
Выполняется последовательность инструкций, пока заданное условие имеет значение True.
Пример 3. Вычислить значение функции f(x) = sin(x) при 1<=x<=2 с шагом h=0.1
Sub FN()
Dim X, f, H As Single, S, S1
X = 1 ’Начальное значение параметра цикла
H = 0.1 ’Шаг изменения параметра цикла
While X <= 2 ’Проверка условия
F=Sin(X)
F=Format(F, ” ###0.000”)
S=S & Str (F)
S1=S1 & Str(X)
X = X + H ’Изменение параметра цикла
X=Format (X, “###0.0”)
MsgBox “X = ” & S1 & “ ” & (Chr(10) & Chr(13)) _
& “F = ” & S & “ ” & (Chr(10) & Chr(13)) _
, VbInformation,” Значения аргумента Х и функции F”
Wend
End Sub