Задание. Вычислить значение Y в зависимости от условий

Вычислить значение Y в зависимости от условий. Аргументы функции Y произвольные и вводятся с клавиатуры. Требуется учесть ОДЗ функций. Результат представить с двумя знаками после запятой.

Private Sub Command1_Click() a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) x = Val(Text4.Text) pi = 3.1415926 If x < pi / 2 Then y = Abs(b * c * x ^ 2): Label7.Caption = Format(y, "###0.00") ElseIf x > pi / 2 Then If a <> 0 Then y = Cos(x / a): Label7.Caption = Format(y, "###0.00") Else Label7.Caption = "a=0" Else If b * c >= 0 Then y = Sqr(b * c): Label7.Caption = Format(y, "###0.00") Else Label7.Caption = "bc<0" End If   End Sub   Private Sub Command2_Click() End End Sub