Практическая работа. Основные этапы разработки Windows-приложений в среде VBA.

Практическая  работа. Основные этапы разработки Windows­приложений в среде VBA Цели: Ознакомится   с этапами решения задачи на компьютере. Задание 1.Найти площадь треугольника по формуле Герона. Этап 1. Постановка  задачи. Определить периметр и площадь треугольникам по трем его сторонам. Дано :A, B, C­значения сторон треугольника. Этап 2. Математическая постановка задачи.  Вычислить периметр треугольника по формуле P=A+B+С.  Вычислить полупериметр треугольника  по формуле Pp=p/2.  Вычислить площадь треугольника по формуле Герона.  Вывести результат: число Р ­ Периметр треугольника.  Вывести результат: число S­площадь треугольника. Этап 3. Этап 4. Программирование. Прежде чем   приступить к программированию, необходимо определить те события, для  которых необходимо разработать алгоритмы и описать их на языке программирования.  В нашем случае есть следующие события: щелчок по командной кнопки <вычислить> и   щелчок мышью по командной кнопке <завершить работу>. Первое событие должно запустить программу вычисления периметра и площади  треугольника, а второе – завершить работу программы.  Кроме этого, при загрузке формы должен загрузиться чертеж.                         Код:                       PUBLIC SUB CommandButton1_Click() DIM a AS Integer DIM b AS Integer DIM c AS Integer DIM p, pp AS Single DIM s AS Single a =TextBox1.text b = textbox2.text c = textbox3.text p = a + b + c IF (a + b > c) AND (b + c > a) AND (c + a > b) THEN  pp = p / 2 s = Sqr(pp * (pp ­ a) * (pp ­ b) * (pp ­ c)) textbox4.text = p textbox5.text = s ELSE  MsgBox("ERROR!" & Chr(13) & "Сумма двух сторон треугольника должна быть больше  третьей стороны" & " ERROR")  END IF  END SUB Этап 5. Отладка. Запустите программу на выполнение и введите значения сторон 3,4,5. Проанализируйте результаты вычислений.  Должны получится следующие результаты: Р=12,S=6. Получился иной? Измените программный код : A=val(text1.text),B=val(text2.text) C=val(text3.text);  text4.text=str(P), text5.text=str(P)                    Этап 6. Анализ результатов. Ваш проект практически готов.    Вы можете новые вводить данные.                                               ЗАДАНИЯ  ДЛЯ  ВЫПОЛНЕНИЯ Разработать проект  для вычисления площади трапеции.  Расписать все этапы решения задачи. Внешний вид по усмотрению.