Написать программу для вычисления значения функции с использованием операторов ветвления If и выбора Select Case

Private Sub Command1_Click()
 
Dim x As Double  
Dim y As Double 
x = CDbl(Text1.Text)
If x < -3.14 / 2 Then
    y = 0
ElseIf x > 3.14 / 2 Then
    y = 1
Else
    y = Sin(x)
End If
Label1.Caption = CStr(y)
End Sub

Private Sub Command1_Click()
 
Dim x As Double  
Dim y As Double 
x = CDbl(Text1.Text)
Select Case x
    Case Is < -3.14 / 2
        y = 0
    Case -3.14 To 0
        y = -Sin(x)
    Case Is > 3.14 / 2
        y = 1
 
End Select
Label1.Caption = CStr(y)
End Sub

Private Sub Command1_Click()
Dim x As Double
Dim y As Double
x = CDbl(Text1.Text)
If x < -3.14 / 2 Then
    y = 0
ElseIf x > 3.14 / 2 Then
    y = 1
ElseIf x > -3.14 / 2 And x < 0 Then
    y = -Sin(x)
Else
    y = Sin(x)
End If
Label1.Caption = CStr(y)
End Sub
 
Private Sub Command2_Click()
 
Dim x As Double
Dim y As Double
x = CDbl(Text1.Text)
Select Case x
    Case Is < -3.14 / 2
        y = 0
    Case -3.14 To 0
        y = -Sin(x)
    Case Is > 3.14 / 2
        y = 1
    Case Else
        y = Sin(x)
End Select
Label1.Caption = CStr(y)
End Sub

Private Sub Command1_Click()
pi = 4 * Atn(1)
Dim x#, y#
x = CDbl(Text1)
If x < -pi / 2 Then
    y = 0
ElseIf x < 0 Then
    y = -Sin(x)
ElseIf x < pi / 2 Then
    y = Sin(x)
Else
    y = 1
End If
Label1 = y
End Sub

Private Sub Command2_Click()
pi = 4 * Atn(1)
Dim x#, y#
x = CDbl(Text1)
Select Case x
    Case Is < -pi / 2
        y = 0
    Case -pi / 2 To 0
        y = -Sin(x)
    Case 0 To pi / 2
        y = Sin(x)
    Case Else
        y = 1
End Select
Label1 = y
End Sub

Function f(x As Double) As Double
Select Case x
    Case Is < -3.14 / 2
        f = 0
    Case -3.14 To 3.14
        f = -Sin(x)
    Case Is > 3.14 / 2
        f = 1
End Select
End Function
 
 
Private Sub Command1_Click()
Dim x As Double              
Dim y As Double              
Dim found As Boolean     
For x = -3 To 3 Step 0.2
        y = f(x)
    Print Round(x, 2), Round(y, 5)      
Next x
 
found = False
For x = -2 To 2 Step 0.1
     y = f(x)
     If y < 0 Then
        found = True
        Print "Самая левая точка с отриц. значением функции ", Round(x, 1), y
        Exit For
     End If
Next x
If Not found Then Print "Нет точки с отрицательным значением функции"
End Sub

Function f(ByVal x As Double) As Double  'обрати внимание на передачу аргумента
Select Case x
    Case Is < -3.14 / 2
        f = 0
    Case -3.14 To 3.14
        f = -Sin(x)
    Case Is > 3.14 / 2
        f = 1
End Select
End Function
 
 
Private Sub Command1_Click()
Form1.Cls
For x = -30 To 30 Step2
    Print Round(x / 10, 2), Round(f(x / 10), 5)
Next x
 
found_right = False
found_left = False
 
For x = -20 To 20
    If f(x / 10) > 0 Then found_right = True: y1 = f(x / 10): x1 = x / 10
    If f(x / 10) < 0 And Not found_left Then found_left = True: _
    y2 = f(x / 10): x2 = x / 10
Next
 
Print "Ïðàâîå çíà÷åíèå " & IIf(found_right, "x=" & x1 & " y=" & Round(y1, 5), "íå íàéäåíî")
Print "Ëåâîå çíà÷åíèå " & IIf(found_left, "x=" & x2 & " y=" & Round(y2, 5), "íå íàéäåíî")
End Sub

Print "Ñàìàÿ ëåâàÿ òî÷êà ñ îòðèö. çíà÷åíèåì ôóíêöèè " & x & " " & y