Сумма положительных и произведение отрицательных элементов одномерного массива - Visual Basic .NET

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

Надо составить программу которая определяет сумму положительных и произведение отрицательных элементов одномерного массива входящих в интервалы (-10; 10), (-∞ ;-100) и (100; +∞) циклической структуры For (цикл с параметром). Помогите, пожалуйста.

Решение задачи: «Сумма положительных и произведение отрицательных элементов одномерного массива»

textual
                            Листинг программы 
                        
                            S = 0
S += i