Кто знает хорошо visual basic нужно прописать в программе функция должна возвращать величину среднего абсолютного отклонения отношение среднего квадратического отклонения к среднему абсолютному отклонению среднее арифметическое из средних абсолютных отклонений поддиапазонов

Среднее абсолютное отклонение
MAD = Сумма (по i от 1 до n) |x(i) - ~x| / n
Программа
Sredx = 0
For i = 1 To n
   Sredx = Sredx + x(i)
Next i
Sredx = Sredx / n ' посчитали среднее арифметическое ~x
MAD = 0
For i = 1 To n
   MAD = MAD + Abs(x(i) - Sredx)
Next i
MAD = MAD / n ' посчитали среднее абсолютное отклонение

Среднее квадратическое отклонение
MQD = Sqrt(Сумма (по i от 1 до n) (x(i) - ~x)^2 / n)
Программа
MQD = 0
For i = 1 To n
   MQD = MQD + (x(i) - Sredx)^2
Next i
MQD = (MQD / n)^(1/2) ' посчитали среднее квадратическое отклонение
Otnos = MQD / MAD ' посчитали отношение квадратического к абсолютному

Среднее арифметическое из средних абсолютных отклонений поддиапазонов
Посчитай MAD в каждом поддиапазоне отдельно, а потом среднее арифметическое, как в цикле Sredx.