Написала код алгоритма в Visual Basic, который правильно считает элементы массива А, В,…

Написала код алгоритма в Visual Basic, который правильно считает элементы массива А, В, С и почему то не правильно считает Z по формуле с этими найденнымичислами. В чем ошибка? Вот код: Private Sub Command1_Click () ' Описание переменныхDim N As SingleDim M (15) As SingleDim A As SingleDim B As SingleDim C As SingleDim Z As Single' Описание переменных' Вод исходных данныхN=0M (I)=0A=1B=0C=0' Ввод исходных данных' Реализация алгоритмаFor I=1 To 15 N=Int (Text1.Text) M (I)=Val (InputBox ("Ввести элементы") Print Str (M (I) Next IFor I=1 To 15 If M (I) > 0 And M (I) <> 0 Then A=A*M (I) End If Next I For I=15 To 0 Step -1 If I Mod 2=0 Then If M (I) > 0 Then B=M (I) I=0 End If End If Next I For I=1 To N Step 1 S=S+M (I) Next I C=S / N Z=С +(А + В/ А*В +1) ' Реализация алгоритма' Вывод результатаText2.Text=Str (A) Text3.Text=Str (B) Text4.Text=Str (C) Text5.Text=Str (Z) ' Вывод результатаEnd Sub