написать программу с массивами в VisualBasic

[ИришкаС]

Необходимо написать программу, которая вводит массив случайных чисел в диапазоне от -50 до 50, после чего подсчитывает сумму четных элементов массива и выводит эти данные в окне сообщения.
в программировании не разбираюсь((
помогите, пожалуйста)

[Stilet]

Примерно так:

dim a(10) as integer
dim i,s as integer

Randomize()
for i=0 to 9
 a(i)=50-Random(100)
 if a(i) mod 2=0 then s=s+a(i)
next i
msgbox "Сумма четных" & Cstr(s)