- •35 Контрольная работа по модулю «Информационные технологии в экономике и управлении»
- •Раздел «Модели решения функциональных и вычислительных задач»
- •Задания для выполнения Раздел «Модели решения функциональных и вычислительных задач»
- •Вариант 1
- •Раздел «Алгоритмизация и программирование. Языки программирования высокого уровня. Технологии программирования»
- •Вариант 1
- •Вариант 2
- •Вариант 3
- •Вариант 4
- •2. Создание файла базы данных Access
- •3. Создание таблицы базы данных
- •Создание структуры таблицы с помощью Конструктора в режиме таблицы (на примере бд «продажи»).
- •Формат полей числового типа
- •4. Создание связей между таблицами
- •Разработка форм
- •1. Общие сведения
- •2. Создание однотабличной формы
- •Элементы управления
- •3. Создание вычисляемых полей
- •4. Многотабличные формы
- •Конструирование запросов к базе данных
- •1. Общие сведения
- •2. Создание запроса на выборку в режиме Конструктора
- •3. Критерии
- •4. Использование в запросах вычисляемых полей
- •5. Многотабличные запросы
- •6. Итоговые запросы
- •Функции Access для выполнения итоговых запросов
- •Отчеты в ms access
- •1. Создание отчета
- •Описание средств для создания отчетов
- •2. Просмотр и печать отчета
- •3. Печать отчета
- •4. Составные отчеты
- •Язык программирования visual basic for applications
- •Запуск редактора vbе
- •Ключевые понятия языка vba
- •Префиксы, используемые в именах объектов
- •Префиксы, используемые в именах переменных
- •Типы данных
- •Виды оператора Def...
- •Математические операции
- •Операции отношения
- •Логические операции
- •Приведем примеры некоторых часто используемых функций.
- •Встроенные функции
- •1) Функция «Окно ввода» (InputBox).
- •2) Функция «Окно сообщения» (MsgBox)
- •Основные операции, применяемые в vba
- •Оператор комментариев
- •Программирование алгоритмов линейной структуры
- •Последовательность действий:
- •1. Составим блок-схему решения задачи:
- •5. Написание программного кода.
- •Программирование ветвлений
- •Программирование циклов
- •Образец оформления титульного листа
- •Вопросы для подготовки к дифференцированному зачету по модулю «Информационные технологии в экономике и управлении»
- •38.03.04 – Государственное и муниципальное управление,
- •21.03.02 – Землеустройство и кадастры
Программирование ветвлений
Управляющие конструкции ветвления позволяют проверить некоторое условие, а затем в зависимости от результатов этой проверки выполнить ту или иную группу операторов. Для организации ветвлений в VBA используются стандартный оператор ветвления(краткого и полного) If ... Then ... Else и оператор выбора Select Case.
Оператор ветвления If ... Then ... Else имеет несколько форм представления. Краткая форма оператора ветвления If может иметь как однострочную, так и блочную форму. В одну строку краткая форма If может быть записана так:
Форма 1:
If <условие> Then <оператор> - краткая форма в одну строку.
В блочной форме краткое ветвление выглядит следующим образом:
Форма 2:
If <условие> Then
<оператор 1>
<оператор 2>
...
End If
В качестве условия можно использовать логическое выражение, возвращающее значение True (Истина) или False (Ложь), или любое арифметическое выражение. Если используется арифметическое выражение, то нулевое значение этого выражения эквивалентно логическому значению False, а любое ненулевое выражение эквивалентно True.
В том случае, когда <условие> принимает значение False, то операторы, составляющие тело краткого оператора ветвления (заключенные между Then и End If), выполняться не будут.
В тех случаях, когда значению условия False должно соответствовать выполнение каких-либо других действий, а не просто пропуск оператора или группы операторов, используется полная форма оператора ветвления, всегда имеющая блочную форму записи:
Форма 3:
If <условие> Then
<блокОператоров1>
Else
<блокОператоров2>
End If
Например: Вычислите значение выражения .
При вводе значений, например, x = 3, y = 3 программа работать не будет. Значит, необходимо использовать оператор ветвления:
Privat Sub Кнопка0_Click()
Dim x, y, z As Double
x = Val(InputBox("Введите x="))
y = Val(InputBox("Введите y="))
If x - y <> 0 Then
z = (x + y) / (x - y)
MsgBox ("z=" + Str(z))
Else
MsgBox ("Знаменатель равен =0")
End If
End Sub
Если в задачи представлены несколько условий, используется следующий синтаксис:
If <условие> Then
[блок операторов 1]
ElseIf <условие> Then
[блок операторов 2]
…
Else
[блок операторовN]
End If
Когда нужно проверить результат одного выражения, который может иметь много различных значений, и для каждого из этих значений надо выполнить свою уникальную последовательность действий удобнее пользоваться управляющим оператором Select Case вместо If…Then…Else.
Возьмем, например, такую задачу: Компьютер спрашивает студента, какую он получил отметку по информатике, и реагирует на нее подходящим текстом. Вот программа без нововведений, использующая If:
Private Sub Кнопка1_Click()
Dim Otmetka As Integer
Otmetka = InputBox("Какую отметку ты получил по информатике?")
If Otmetka = 1 Or Otmetka = 2 Then
MsgBox («Плохо!»)
ElseIf Otmetka = 3 Then
MsgBox («Так себе»)
ElseIf Otmetka = 4 Then
MsgBox («Хорошо!»)
ElseIf Otmetka = 5 Then
MsgBox («Молодец!»)
Else
MsgBox («Таких отметок не бывает!»)
End If
End Sub
Эту программу можно записать проще с использованием оператора варианта Select Case, что и означает в переводе ВЫБЕРИ ВАРИАНТ:
Private Sub Кнопка1_Click()
Dim Otmetka As Integer
Otmetka = InputBox("Какую отметку ты получил по информатике?")
Select Case Otmetka
Case 1, 2
MsgBox («Плохо!»)
Case 3
MsgBox («Так себе»)
Case 4
MsgBox («Хорошо!»)
Case 5
MsgBox («Молодец!»)
Case Else
MsgBox («Таких отметок не бывает!»)
End Select
End Sub
Синтаксис оператора:
Select Case – выражение -
Case 1 – выражение 1 –
(блок операторов)
Case 2 – выражение 2 –
(блок операторов)
----//----
Case else
(блок операторов)
End Select