Практическая работа. Основные этапы разработки 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. Анализ результатов.Ваш проект практически готов.    Вы можете новые вводить данные.                                               ЗАДАНИЯ  ДЛЯ  ВЫПОЛНЕНИЯ Разработать проект  для вычисления площади трапеции.  Расписать все этапы решения задачи. Внешний вид по усмотрению.