S.O.S.

[*vampiria*]

Здравствуйте. Подскажите, пожалуйста, в чем тут ошибка..
надо составить программу на 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

Comments

[[revolver]]

ваще говоря так и должно быть. Мат ожидание нуля очень высоко.

[Vj_o-oy]

Вариант 1: Если мне память не изменяет, то в VB вызов процедур не требует скобок, а функций требует (т.е. mysub param1, param2 - нормально, myfunc(param1, param2)), Rnd() - явно функция В скупе с дурной привычкой VB не требовать объявления переменных - оно может плохо обернуться.
В массивчике то числа больше нуля по модулю?

Вариант 2: для среднего арифметического использовать не целочисленный тип, например Double, т.к. среднее арифметическое явно должно быть близко к нулю.