ЗАДАНИЕ 1

ОСНОВНЫЕ ОПЕРАТОРЫ VBA.

Ключевые понятия: алгоритм, блок-схема алгоритма, понятие переменной, типы данных, описание переменных, оператор присваивания, вводвывод данных в ячейки ЭТ, условный оператор, редактор Visual Basic, модуль, сохранение и выполнение программ.

ОПЕРАТОР ПРИСВАИВАНИЯ. ЛИНЕЙНЫЙ АЛГОРИТМ.

ЗАДАЧА № 1.0

Написать программу нахождения длины окружности по заданному значению радиуса

1. Подготовить рабочий лист ЭТ для считывания исходных данных и вывода результата вычислений.

В ЭТ на первом листе в ячейке А1 - (Cells(1,1)) вводится числовое значение радиуса окружности, например тестовое значение 5, в ячейке B1 вводится слово радиус для пояснения. Переименовать «Лист1» на «Длина»

Результат выводится в ячейку А2 - Cells(2,1) – первоначально (до работы программы) она пустая. В ячейке B2 вводится

слово «Длина» для пояснения, а рядом формула с помощью внедренного объекта “Equation.3” (Вставка-

Объект… - Microsoft Equation 3.0). Длина окружности выра-

жается формулой L 2 R

2.Добавить текст программы и провести вычисление.

Текст программы вводится в редакторе VisualBasic. Редактор открывается через меню Сервис-Макросы-Редактор VB или через комбинации. клавиш Alt+F11.

47

В редакторе добавить новый модуль (Insert-Module) и в окне модуля написать текст программы.

Добавить на листе Excel командную кнопку (Вид-Панель инст-

рументов-Формы) и выбрать Назначить макрос объекту для выполнения по нажатию на нее программу с именем Длина-

Окружности.

Переименовать название объекта-кнопка «Кнопка N» в «СТАРТ

процедуры ДлинаОкружности».

48

Проверить ДОСТОВЕРНОСТЬ ИНФОРМАЦИИ о вычисленном значении длины окружности по независимым вычислениям с использованием формул в ЭТ и расчет в программе Калькулятор.

Рассчитать ошибку. Объяснить причину появления ошибки.

Добавить в модуле (Module1) проекта новую программуфункцию Function ДлинаОкруж. Для этого скопировать текст программу-процедуру (Subroutine) Sub ДлинаОкружности

и внести необходимые изменения (см. рисунок выше).

На листе Длина в ячейке А6 добавить функцию =ДлинаОкруж(A1)из списка пользовательских функций

(Вставка-Функция…Категория Определенные пользователем).

Нарисовать Блок-Схему программы ДлинаОкружности (см. рис. ниже).

49

Добавить объект Полоса прокрутки используя панель Формы. Назначить этому объекту выполнение макроса Дли-

наОкружности. Отре-

дактировать Формат объекта (закладка Элемент управления).

Рассчитать ошибку. Объяснить причину исчезновения ошибки.Написать новую программу нахождения площади круга по фор-

муле S R2 на новом листе (Лист 2).

Повторить этапы вычисления и проверки результатов работы программы и создания функции ПлощадьКруга (см. п.1-4).

50