2015-01-07
430
1. 
Открыть проект, созданный в ходе выполнения работы № 2.1. Задать свойство name формы Example2_2.
2. Создать проект для вычисления площади треугольника: либо по формуле ½*(h*w), либо по формуле Герона. Выбор способа вычисления должен осуществляться с помощью кнопок Option button.
3. Изменить вид формы (см. рис. 12), добавив или удалив необходимые объекты.
4. В программный код кнопки вычислить внести необходимые изменения:
Dim a, b, c, p, s As Single ‘ описание переменных типа Single
a=Val(visota.Text) ‘ a присваиваем знач. из текст. поля visota
b=Val(osnovanie.Text) ‘ b присваиваем знач. из текст. поля osnovsnie
c=Val(storona3.Text) ‘ c присваиваем знач. из текст. поля storona3
If vibor(0).Value Then ‘ условный оператор – нажата 1-ая кнопка
s=a*b/2 ‘ площадь треугольника
Else ‘ условный оператор – иначе
p=(a+b+c)/2 ‘ полупериметр
s=Sqr(p*(p-a)*(p-b)*(p-c)) ‘ площадь треугольника по ф-ле Герона
End If ‘ конец условного оператора
result.Caption=s ‘ метке result присваиваем вычисленное значение
5. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить проект и форму.
Выполните самостоятельно!
