Решение. Этап 1. Математическая часть

Этап 1. Математическая часть

Дано: сторона a=6, сторона b=5 и высота h=3.

Найти: S-? P-?

S = ah;

P = 2(a + b).

(!) Самостоятельно разработать алгоритм на естественном языке и составить блок-схему.

Этап 2. Ввод данных в таблицу Excel

В ячейку А1 вводится значение стороны a, в ячейку B1 вводится значение стороны b, в ячейку C1 вводится значение высоты h.

Этап 3. Определение переменных

Вводятся: a, b, h (тип Single)

Выводятся (результат): S, P (тип Single).

Этап 4. Написание процедуры

На рабочем листе Лист1 при помощи Элементов управления создать элемент Кнопка (СommandBatton1).

Примечание: Если Панель инструментов Элементы управления отсутствует, необходимо навести курсор мыши на свободное место в строке Панели инструментов Правой Клавишей Мыши (ПКМ) вызвать меню и выбрать пункт Элементы управления.

 

Навести курсор мыши на Кнопку в режиме конструктора (на панели Элементы управления нажата первая кнопка (линейка с треугольником)). Вызвать контекстное меню ПКМ Выбрать пункт Свойства ® закладку Alpabetic, в списке свойств выбрать Caption, справа в поле ввода удалить старое название и ввести новое название кнопки Кнопка1.

Навести курсор на Кнопку в режиме конструктора. Вызвать контекстное меню ПКМ. Выбрать пункт Исходный текст. Автоматически попадаем в режим редактора VBA и появляется заголовок Процедуры-События:

 

Набирать процедуру на месте курсора:

Private Sub CommandBatton1_Click()

Dim a, b, h As Single

Dim S, P As Single

’Ввод данных

a = Range(“A1”).Value

b = Range(“B1”).Value

h = Range(“C1”).Value

’Вычисление

S = a * h

P = 2 * (a + b)

’Вывод результатов в ячейки B4 и B5

Range(“B4”).Value = “Площадь = “ & S

Range(“B5”).Value = “Периметр = “ & P

End Sub

Этап 5. Выполнение

Перейти на рабочий лист (View®Microsoft Excel или Alt+F11). Выйти из режима Конструктора, левой клавишей мыши (ЛКМ) нажать Кнопку. В ячейке В4 появится результат «Площадь = 18», в В5 Þ «Периметр = 22».

Этап 6. Переименование листа Навести курсор на закладку Лист1, правой клавишей мыши (ПКМ) вызвать контекстное меню, выбрать пункт Переименовать, удалить старое название листа и с клавиатуры набрать новое Площадь_Периметр, нажать Enter.

Задачи для самостоятельной работы

Задача 2. Составить программу перевода значения угла αº; (данного в градусах) в радианы.

 

Задача 3. Составить программу. Комплексное число заданное действительной и мнимой части записать в тригонометрической форме
. Примечание: , .

Задача 4. Составить программу вычисления угла (в градусах) между двумя прямыми . Примечание: .

Задача 5. Составить программу вычисления угла (в градусах) между векторами и .

Примечание: .

В VBA Arccos(X) = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)

Лабораторная работа № ПР2 «Работа с условным оператором If... Then»

Цель работы: закрепить полученные в лабораторной работе № 1 навыки. Научиться работать с алгоритмом ветвления в кодах VBA.

Теоретические сведения

Условный оператор. Оператор If... Then

В VBA есть два типа операторов If... Then — линейный и блочный.

Линейный оператор If... Then используется для того, чтобы выполнить какой-либо один оператор, если некоторое условие будет истинным. Условие является выражением или функцией, истинность которого оценивается.

Синтаксическая конструкция линейного оператора:

If <;Условие > Then <;Оператор_1 > Else <;Оператор_2 >;

При значении Условия = True выполняется Оператор_1, следующий засловом Then, а затем следующий за условным оператор. Если Условие принимает значение False, то выполняется следующий за Else оператор Оператор_2. Else может отсутствовать, тогда оператор называется безальтернативным и, если Условие= True, то выполняется Оператор_1, а затем следующий за условным оператор. Если Условие= False, а выполняется следующий оператор.

Блочный оператор имеет синтаксис:

If <Условие_1> Then

<Операторы_1, если Условие=True>

[ ElseIf <Условие_2> Then

<Операторы_2, если Условие_2=True>]

[ ElseIf <Условие_3> Then

<Операторы_3, если Условие_3=False>]

…

[ Else

<Операторы>]

End If

<Условие_1> – необходимая часть оператора, это то Условие, которое должно проверяться. Если значение этого условия True, то выполняется Операторы_1 следующие за словом Then. Если необходимо проверить еще условия, то добавляется зарезервированное слово ElseIf с последующим условием. Если Условие_2= True, то выполняются Операторы_2. Если необходимы еще условия, то добавляются еще структура ElseIf и если все Условия не выполняются, то выполняются Операторы следующие за словом Else.

Операторы If могут быть вложенными друг в друга. Такое вложение операторов применяется, если нужно проверить какое-либо условие при другом условии, которое является True и включить альтернативу Else.

Задача 6 (алгоритм ветвления) Найти наибольшее из трех чисел a,b и c. Составить программу.