double arrow

Порядок действий. 1. Откройте папку ЛАБ1 ископируйте файл формы ЛР1_зад3_F_Фамилия


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







Сейчас читают про: