Алгоритм вычисления:

1. Ввести исходные данные (числа): А, В, С — значения сторон треугольника.

2. Вычислить периметр треугольника по формуле Р = А + В + С.

3. Вычислить полупериметр треугольника по формуле Pp=P/2

4. Вычислить площадь треугольника по формуле

S=SQR(Рр·(Рр-А).(Рр-В).(Рр-С))

5. Вывести результат: число Р — периметр треугольника.

6. Вывести результат: число S — площадь треугольника.

Порядок действий:

a) Самостоятельно напишите процедуру обработки события щелчок мышью по командной кнопке <Завершить работу>.

b) Напишите процедуру, которая будет выполняться при загрузкe Формы:

Private Sub Form_Load()

Image1.Picture = LoadPicture("D:\3.bmp")

End Sub

c) Напишите[7] процедуру обработки события щелчок мышью по командной кнопке <Вычислить> (в программном коде специально допущены некоторые ошибки, чтобы далее показать этап отладки пpoгpaммы).

Private Sub cmdStart_ Click()

В = txtB.Text 'Присваивание nеременнoй В значения,

'введенного в текстовое поле (txtВ

А = txtA.Text 'Присваивание переменной А значения,

'введенного в текстовое поле txtA

С = txtC.Text 'Присваивание переменной С значения,

'введенного в текстовое поле txtC

р = А + В + С 'Вычисление периметра и nрисваивание

'вычисленного значения переменной Р

Рр = Р / 2 'Вычисление полупериметра и присваивание

'вычисленного значения переменной Рр

S = Sqr(Pp * (Рр - А) * (Рр - В) * (Рр – С) 'Вычисление площади

'и nрисваивание вычисленного значения nеремен'ной S

txtP.Text = Р 'Вывод значения nолуnериметра в текстовое

'поле txtP (nрисваивание свойству ТехT

'текстового поля txtP значения Р)

txtS.Text = S 'Вывод значения площади в текстовое поле txtS

'(nрисваивание свойству ТехT текстового поля txtS значения S)