Завдання до лабораторної роботи. Приклад виконання лабораторної роботи:

(див. додаток)

Приклад виконання лабораторної роботи:

Обчислити вираз за заданою умовою. Змінні x,y,z ввести самостійно.

Програмний код:

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

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

Обчислити:

Програмний код:

Private Sub Command1_Click()

Dim x, y As Single

x = Val(Text1)

If x < -1 Then

y = 1 / x

ElseIf x >= -1 And x < 2 Then

y = 1 / x ^ 2

Else

y = 4

End If

Text2 = y

End Sub

Private Sub Command2_Click()

End

End Sub

Розроблений інтерфейс та результат виконання програми: