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

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

2. Запрограммировать функцию и вычислить сумму ее значений в заданных точках, а также количество отрицательных значений функции и произведение значений функции не равных нулю. Я запрограммировал функцию, но застопорился на всем остальном. Dim X As Single, Y As Single X = Val(InputBox("Ââåäèòå çíà÷åíèå X")) If X < 0 Then Y = Exp(-X) Else If X > 1 Then Y = 0 Else Y = Cos(X) End If End If MsgBox "Y=" + Str(Y) + " x=" + Str(X)

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

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

                            ...
N=0
P=1
For x = ... to ... 'Для каких значений?
'Твой код 
...
If Y<0 then
N = N + 1 'Подсчет отрицательных
End If
If Y<>0 then
P = P*Y   'Произведение ненулевых
End If 
Next
...
                        