1. Откройте папку ЛАБ1 ископируйте файл формы ЛР1_зад3_F _Фамилия
2. Приведите форму в соответствие с рис. 13.12.
3. Установите значения свойства Name для добавленных текстовых полей — txtD и txtE.
4. Измените значения свойства Caption для формы и меток в соответствии с рис.13.12.
5. Сохраните проект под именем ЛР13_Зад3 _Фамилия.
Рис. 13.13
6. Создайте общую процедуру (скопируйте строки кода процедуры из кода предыдущей программы).
Private Sub treug(x As Single, y As Single, z As Single, p As Single,s As Single)
Dim Pp As Single
p = x + y + z
Pp = p / 2
s = Sqr(Pp * ((Pp - x) * (Pp - y) * (Pp - z)))
End Sub
Здесь treug — имя процедуры; х, у и z — входные параметры, а Р и S — выходные параметры процедуры.
7. Измените процедуру, которая будет выполняться при щелчке по кнопке < Вычислить >:
Private Sub CmdEnd_Click()
End
End Sub
Private Sub CmdStart_Click()
Dim A As Single, B As Single, C As Single, D As Single, E As Single