Помогите, кто знает хорошо 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.