Loop Until < Логическое выражение>

Выполняется как минимум один раз, и далее пока выражение ложно.

Досрочный выход Exit Do

Пример выполнения контрольного задания (разработка приложения)

Этапы разработки приложения рассмотрим на примере создания приложения «Учет командировочных расходов». Напомним, что первые два этапа - «Постановка задачи» и «Экономико-математическое описание задачи и выбор метода ее решения»

выполняются не на компьютере, а на бумаге. Работа на компьютере начинается на третьем этапе «Алгоритмизация» тогда, когда инструментальные средства Excel позволяют полностью или частично исполнить разработанный алгоритм.

В процессе разработки приложения «Учет командировочных расходов» выполняйте на компьютере те действия, которые указаны после слова *Выполните.

Первый этап - Постановка задачи.

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

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

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

Приложение «Учет командировочных расходов» должно иметь удобный и понятный интерфейс, позволять легко вводить информацию о новых сотрудниках, новых организациях и новых командировках.

В нашем случае приложение «Учет командировочных расходов» можно представить как объединение 4 задач:

1. Ввод и накопление данных о сотрудниках предприятия, назовем ее «Сотрудники».

2. Ввод и накопление данных об организациях, в которые командируются сотрудники, назовем «Организации».

3. Ввод и накопление информации о конкретных командировках, назовем ее «Командировки».

4. Создание интерфейса, позволяющего объединить вышеперечисленные задачи, назовем «Меню».

Контрольный пример. Сотрудник Иванов А.В., работающий менеджером в маркетинговом отделе, отправляется в командировку в г. Омск на фирму «Темп» на 5 дней. Суточные - 300 руб. в день, стоимость билета 400 руб. Сведения о сотруднике и об организации, в которую он командируется, должны храниться в базах данных. Расходы на данную конкретную командировку включают стоимость билета туда и обратно, а также суточные в течение пяти дней. Общая сумма расходов равна 2300 руб. Информация об этой командировке тоже должна быть сохранена в базе данных.

Второй этап - экономико-математическое описание задачи и выбор метода ее решения.

Для первой задачи «Сотрудники» не требуется математического описания. Она предполагает создание списка или базы данных. Каждая запись будет хранить информацию об одном сотруднике. Поля записи -фамилия И.О., отдел, должность, телефон.

Задача «Организации» также предполагает создание списка или базы данных. Записи этой базы данных будут хранить сведения об организациях. Поля записей - наименование организации, адрес, телефон.

Для задачи «Командировки» выполним математическое описание. В этой задаче нужно рассчитать общую сумму расходов на командировку. Обозначим исходные данные:

Дни - количество дней командировки;

Суточные - размер суточных;

ЦенаБилета - цену билета до города, в который командируется сотрудник.

Сумма - общая величина расходов на командировку.

Формула для расчета суммы расходов будет выглядеть так

Сумма = Дни*Суточные + ЦенаБилета*2

Для хранения данных о командировках необходимо создать базу данных. Поля записей - дата выезда; фамилия сотрудника; наименование организации, в которую командируется сотрудник; количество дней командировки; размер суточных; цена билета; общая сумма расходов.

Четвертая задача - «Меню» предполагает создание меню для удобного взаимодействия пользователя с тремя базами данных.

Задачи «Сотрудники» и «Командировки» связаны между собой по фамилии сотрудника. Задачи «Организации» и «Командировки» связаны между собой по наименованию организации.

На рисунке представлены задачи приложения «Учет командировочных расходов», а также связи между этими задачами.

При выборе программного средства (ПС) для создания приложения следует учесть такие факторы:

• назначение ПС, его возможности;

• знание разработчиками ПС, наличие практических навыков работы с ним;

• время, выделенное на разработку приложения;

• финансовые возможности;

• техническая база.

Учитывая вышеперечисленные факторы, выберем в качестве ПС для разработки нашего приложения Microsoft Excel и Visual Basic for Applications (VBA).

После того, как мы выбрали метод решения с помощью Excel и VBA, дальнейшие действия в значительной степени зависят от того, каковы возможности выбранного ПС.

Третий этап - Алгоритмизация.

Для каждой из поставленных задач разработаем алгоритмы их решения.

Задача 1 – Сотрудники

Разработаем алгоритм для решения задачи «Сотрудники». Словесное описание алгоритма:

1. Подготовка листа Excel для накопления данных о сотрудниках. Эта подготовка включает переименование листа, например Листа1 в лист «Сотрудники», и ввод заголовков столбцов. В нашем случае заголовки столбцов соответствуют полям записей о сотрудниках. Результат выполнения этого пункта см. на рис.28.

2. Подготовка формы для ввода информации на лист «Сотрудники». Для этого надо ввести во вторую строку таблицы запись об одном сотруднике, например, Иванов A.M., Менеджер, Маркетинговый отдел, 123-45-67 и выполнить команду Данные -Форма. На экране появится встроенная форма с полями для ввода данных и несколькими кнопками для работы с базой данных см.рис.20.

После того, как в поля для ввода будут введены данные и нажата кнопка Добавить или просто закрыть форму информация об очередном сотруднике будет записана на лист «Сотрудники».

*Выполните два пункта разработанного алгоритма.

Таким образом, задача «Сотрудники» уже практически подготовлена для работы с ней. Этап «Программирование» для этой задачи пропускается. Этап «Отладки» будет рассмотрен ниже в комплексе с другими задачами.

Задача 2 - Организации

Алгоритм для решения задачи «Организации» аналогичен предыдущему. Описание алгоритма:

1. Подготовка листа Excel для накопления данных об организациях, в которые командируются сотрудники:

• переименование листа «Лист2» в «Организации»;

• ввод заголовков столбцов (Наименование организации, Адрес, Телефон);

2. Подготовка формы для ввода информации на лист «Организации»:

• ввод информации об одной организации;

• выполнение команды Данные -Форма. *Выполните два пункта разработанного алгоритма.

Задача «Организации», как и предыдущая, практически решена. Этап «Программирование» для нее пропускается. Этап «Отладки» будет рассмотрен ниже в комплексе с другими задачами.

Задача 3 - Командировки

Разработку алгоритма для решения задачи «Командировки», как и первых двух задач, целесообразно начать с подготовки листа Excel для накопления данных о командировках:

1. Переименуем «ЛистЗ» в «Командировки» и введем заголовки столбцов (Дата выезда, Фамилия И.О. сотрудника, Наименование организации, Количество дней, Суточные, Цена билета, Общая сумма).

Заметим, что в графу «Фамилия И.О.» должна вводиться информация с листа «Сотрудники», а в графу «Наименование организации» - информация с листа «Организации», так как эти сведения уже хранятся в соответствующих базах данных и было бы нецелесообразно их набирать еще раз. Использование уже однажды введенных данных позволяет избежать ошибок ввода, ускоряет ввод информации и, наконец, просто удобно. Однако в этом случае встроенная форма нас уже не устроит, так как во встроенной форме нельзя взять информацию с других листов. Таким образом, у нас возникает подзадача «Создание пользовательской формы» для ввода сведений о командировках.

2. Создание пользовательской формы начинается с проектирования. Предположим, что пользовательская форма будет выглядеть так, как показано на рис. 29.

Спроектированная пользовательская форма (ПФ) содержит пять полей для ввода и два поля со списками. Первые четыре поля для ввода (у нас это - TextBoxl, TextBox2, ТехtВохЗ и TextBox4) предназначены для того, чтобы пользователь вводил в них информацию. После того, как данные в поля Количество дней (TextBox2), Суточные (ТехtВохЗ) и Цена билета(ТехtBох4) введены и если эти данные - числа, то в поле

Общая сумма (у нас это -TextBox5) должна появиться сумма, рассчитанная по формуле:

Сумма=Дни*Суточные+ЦенаБилета*2

Пересчет этой суммы должен производиться при каждом изменении содержимого полей Количество дней, Суточные и Цена билета, т.е. в рамках задачи «Командировки» выделяется подзадача «Расчет суммы в ПФ».

В спроектированной ПФ имеются две кнопки - Ок и Отмена. По нажатию на кнопку Ок информация из полей ввода должна быть записана на лист «Командировки». Это тоже отдельная подзадача. Назовем ее «Работа кнопки Ок в ПФ».

После нажатия на кнопку Отмена форму необходимо убрать с экрана. Назовем эту подзадачу «Работа кнопки Отмена в ПФ»

Таким образом, задача «Командировки» разбивается на пять подзадач см.рис.ЗО.

Алгоритм решения подзадачи 3.1 - «Подготовка листа Excel » приведен в начале параграфа, это пункт, помеченный цифрой 1

*Выполните этот алгоритм.

Алгоритм решения подзадачи 3.2 - «Создание ПФ» описан на рис. 20.

-Выполните алгоритм этой подзадачи, т.е. создайте спроектированную (и приведенную на рис. 29) пользовательскую форму.

Первые две подзадачи практически подготовлены для решения. Для решения остальных подзадач разработаем детальные алгоритмы.

Подзадача 3.3. Расчет суммы в ПФ

Словесное описание алгоритма:

1. Объявление переменных. (Дни, Суточные, ЦенаБилета объявим как числа с плавающей точкой обычной точности).

2. Если содержимое поля Дни (у нас это - TextBox2.Text) - число и содержимое поля Суточные (TextBox3.Text) - число и содержимое поля ЦенаБилета (TextBox4.Text) - число, то выполняется пункт 3, иначе выполняется пункт 2.