S.O.S.

[programming]

Здравствуйте. Подскажите, пожалуйста, в чем тут ошибка..
надо составить программу на VBA.
задание
Сформируйте массив чисел и вычислите среднее арифметическое.
Честно говоря, в циклах совсем не разбираюсь, кое-как по аналогии с
заданием одногруппницы составила горе-программу, но мое ср. арифметическое постоянно = 0 ))
Sub Lab_4()
Dim a(1 To 30) As Integer, P As Integer, i As Integer, N As Integer, y As Integer
Dim S As String
'>ввод данных
N = InputBox("Введите длину массива от 10 до 30" )
Do While (N < 10) Or (N > 30)
N = InputBox("Будте внимательны! Число от 10 до 30." )
Loop
x = InputBox("Введите диапазон чисел в пределах 100" )
Do While (Abs(x) < 1) Or (Abs(x) > 100)
x = InputBox("Будте внимательны! Число от 1 до 100." )
Loop
Randomize
For i = 1 To N
a(i) = Int(Rnd * 2 * x - x)
Next i

P = 1
For i = 1 To N
P = P + a(i)
Next i

у = P / N
MsgBox ("sr.arifm. ravno " & Str(y))
For i = 1 To N
S = S & Str(a(i)) & " " 'Формируем строку из массива
Next i
MsgBox ("Массив: " & S) 'Выводим массив в окно вывода
End Sub