Вычислить значение Z массива по формуле - VB

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

Разработать алгоритм,позволяющий для элементов массива М(размерность=10) с использованием циклов вычислить значение Z.Решить в виде блок-схемы,и написать программу в VB А+В+С/А*В*С+2 А-произведение положительных элементов с нечетными номерами В-второй элемент массива М С-среднее арифметическое положительных элементов

Решение задачи: «Вычислить значение Z массива по формуле»

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

                            ' Разработать алгоритм,позволяющий для элементов массива М(размерность=10) с использованием циклов вычислить значение Z.
' Решить в виде блок-схемы,и написать программу в VB
' А + В + С / А * В * С + 2
' А-произведение положительных элементов с нечетными номерами
' В-второй элемент массива М
' С-среднее арифметическое положительных элементов
Private Sub Command1_Click()
    Dim M(1 To 10) As Integer, i As Integer
    Dim n As Integer, sum As Long
    Dim A As Long, B As Integer, C As Double, Z As Double
    Randomize
    Cls
    A = 1
    Print "Исходный массив"
    For i = 1 To 10
        M(i) = CInt(Rnd * 100 - 50)
      ' M(i) = Inputbox ("M(" & i & ") = ","",CInt(Rnd * 100 - 50))
        Print M(i);
        If M(i) >= 0 Then          '
              n = n + 1            '
              sum = sum + M(i)     '
              If i Mod 2 <> 0 Then '
                   A = A * M(i)    '
              End If
        End If
    Next i
    B = M(2)
    C = sum / n
    Z = (A + B + C) / (A * B * C + 2)
    Print
    Print "A = " & A
    Print "B = " & B
    Print "C = " & C
    Print "Z = " & Z
End Sub
                        