Page 90 - 4192

Для введення даних і відображення результату
використаємо елементи типу TextBox. Аналогічно до лінійної
програми створимо форму і для виконання обчислень
запрограмуємо командні кнопки. Код програми і вигляд
додатку відображені нижче (рис.4.4).

Програмний код:
Private Sub Command1_Click()
Dim x, y, z, A As Single
x = Val(Text1)
y = Val(Text2)
z = Val(Text3)
If x <= y Then A = x * (x + 1) ^ (1 / 4) Else A = 3 * y /
(Sqr(x) + Log(Abs(z)))
Text4 = A
End Sub
Private Sub Command2_Click()
End
End Sub

Рисунок 4.4 – Результат виконання програми

89