Запрограммировать функцию - VB (59995)

Формулировка задачи:

Запрограммировать функцию и вычислить сумму её значений в заданных точках, а также количество значений функции больших 3, и произведение значений функций больших -1 и меньших 3. y=4*tg(x),если x>0 (x^2+1)/(x+1), если x<-2 sin(x), если -2<=x<=0 для x=-0.5, -2.5 , 1 , -1.5 , 0 , 2.23

Решение задачи: «Запрограммировать функцию»

textual
                            Листинг программы 
                        

                            Option Explicit
Dim x As Single, y As Single
Dim n As Integer
Dim Summa As Single
Dim Kol As Integer
Dim Pro As Single
 
Private Sub cmdD_Click()
   Summa=0
   Kol=0
   Pro=1
   For n=1 To 6
      x=Choose(n,-0.5,-2.5,1,-1.5,0,2.23)
      y=Switsh(x>0, 4*Tan(x), x<-2, (x^2+1)/(x+1), True, Sin(x))
      Summa=Summa+y
      If y>3 Then Kol=Kol+1
      If (y>-1) And (y<3) Then Pro=Pro*y
   Next n
   Print Summa
   Print Kol
   Print Pro
End Sub
                        