Составить программу для определения сумм и количеств неотрицательных и отрицательных элементов массива. Visual Basic

Составить программу для определения сумм и количеств неотрицательных и отрицательных элементов массива.
A(n) n=5
a1=1 a2=0 a3=-1 a4=3 a5=-6