Найти среднее геометрическое всех элементов массива и наибольшее отклонение от среднего - VB

Формулировка задачи:

Дан массив с(15). Найти среднее геометрическое всех элементов массива и наибольшее отклонение от среднего, т. е максимум из (с(i) -Cp.арифм.). Если полученное наибольшее кратно двум, то заменить этим значением каждый третий элемент массива, иначе каждый пятый возвести в квадрат. вывести начальный и конечный состав массива в диапазоны красного и синего цветов. увеличить размер шрифта на 2 пт для наибольшего отклонения от среднего, цвет шрифта -зеленый.

Решение задачи: «Найти среднее геометрическое всех элементов массива и наибольшее отклонение от среднего»

textual
                            Листинг программы 
                        
 
                            
                        
Option Explicit
Const N = 15
 
Private Sub Form_Click()
    Dim c(N)  ' числовой массив c
    Dim i As Integer, Sr_G As Single, Sr_A As Single, Max As Single, Temp As Single, Shag As Integer
    Randomize
    Cls
    
    Print "Массив c" ' Печать на Форме1 - Массив c
    Sr_G = 1: Max = 0
    For i = 1 To N
        c(i) = Int(Rnd * 100 + 1) ' формирование массива случайных чисел в интервале [1,100] по формуле Int(RND*(B-A+1)+A)
        Sr_G = Sr_G * c(i) 'найти среднее геометрическое
        Sr_A = Sr_A + c(i)  'найти среднее арифметическое
        Print c(i); ' вывод массива в строку на форму
    Next
    Sr_A = Round(Sr_A / N, 0) 'округлим до целого
    Print ' перевод строки
    Print "Cр.геометрическое: " & Sr_G ^ (1 / N) 'вывод среднего геометрического на форму
    Print "Cр.арифметическое: " & Sr_A  'вывод среднего арифметического на форму
    For i = 1 To N
        Temp = Abs(c(i) - Sr_A)
        If Temp > Max Then Max = Temp ' поиск наибольшего отклонения от среднего
    Next
    If Max Mod 2 = 0 Then Shag = 3 Else Shag = 5 'выбираем шаг
    Print "Наибольшее отклонение от среднего: " & Max  'вывод наибольшего отклонения от среднего на форму
    For i = Shag To N Step Shag
        If Shag = 3 Then c(i) = Max Else c(i) = c(i) ^ 2 ' заменяем элементы по условию
    Next
    For i = 1 To N
        Print c(i); ' вывод массива в строку на форму
    Next
End Sub