Задача на массивы в VBA

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

вот условие: Дан массив М(9). Если разность между средним арифметическим и средним геометрическим меньше 1, то последние четыре элемента заменить нулями, иначе найти сумму квадратов всех элементов массива с четными индексами. Вывести полученный вектор

Решение задачи: «Задача на массивы в VBA»

textual
                            Листинг программы 
                        

                            Private Sub Mas()
Dim M(9) As Integer, i As Integer, sr As Double, srG As Double, sK As Double
Randomize
Debug.Print "Массив М:"
sr = 0: srG = 1
For i = 0 To 9
    M(i) = 20 * Rnd()
    Debug.Print M(i)
    sr = sr + M(i)
    srG = srG * M(i)
Next i
Debug.Print
sr = sr / 10:
srG = srG ^ (1 / 10)
Debug.Print "Среднее арифметическое = " & sr
Debug.Print "Среднее геометрическое = " & srG
Debug.Print
If (sr - srG) < 1 Then
    Debug.Print "Pазность между средним арифметическим и средним геометрическим меньше 1"
    For i = 0 To 9
        If i >= 7 Then
            M(i) = 0
        End If
        Debug.Print M(i)
    Next i
    Else
    sK = 0
    For i = 0 To 8 Step 2
        sK = sK + M(i) ^ 2
    Next i
    Debug.Print "Pазность между средним арифметическим и средним геометрическим не меньше 1"
    Debug.Print "Cуммa квадратов всех элементов массива с четными индексами = " & sK
End If
End Sub
                        