Лабораторная работа№1

Линейные алгоритмы. Простейший ввод данных.

Задание: Написать программу, которая расчитывает площадь прямоугольника.

Постановка задачи.

Разработать на VBA две независимые процедуры (выполнить два задания).

Процедура 1 должна обеспечить считывание исходных данных (a, b –стороны прямоугольника) из ячеек рабочего листа, расчет площади по формуле S=a*b и запись результата в заданную ячейку.

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

Выполнение задания 1.

Прежде чем разработать процедуру, подготовим место для ввода и вывода (диапазон ячеек) на рабочем листе. Введем в ячейки А2 и В2 листа 1 значения сторон прямоугольника.

Рис.3

Далее выполняем действия:

• Перейдем в формат R1C1;
• Выполним цепочку команд Сервис ØМакросØМакросы…
• Введите в окне Макрос имя макроса: Informatica1.
• Нажмите кнопку Создать.
• В окне Visual Basic наберите код программы:

Рис.4

• Перейдите в рабочую книгу на лист2.
• Запустите созданную процедуру informatica1. Для этого выполните команды Сервис ØМакрос Ø Макросы Øinformatica1ØВыполнить. На Листе 1 вы должны увидеть заполненные ячейки A2, B2, C2 (рис.5)

Рис.5

• Последнее, что осталось сделать — это предусмотреть удобные средства для вызова запрограммированной процедуры. Создадим для этого специальный элемент управления — кнопку — прямо на рабочем листе 1. Это можно сделать с помощью панели инструментов Элементы управления:

ØВид ØПанели инструментов ØФормы

На рабочем листе появится окно Формы. Необходимо выбрать q ("Кнопка").

В результате в то место, где находилась точка ввода, будет вставлен элемент управления "Кнопка" со стандартной надписью "Кнопка1". Одновременно откроется окно «Назначить макрос объекту». Объекту Кнопка1 следует назначить макрос Informatica1. Нажмите на кнопку Создать. С помощью контекстного можно настроить свойства этой кнопки, в частности поменять на ней надпись (заменим на надпись «S») и отформатировать, изменить ее расположение (переместить в область ячейки С2) и размеры.

Рис.6