Задача с матрицой - VB

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

Здравствуйте!

помогите дорешить задачу: Вычислить и округлить до 0,1 элементы массива M=(M(i)) где m(i)=8*sin(sin(i+k)) и i={1,2,..,7}. Найти среднеарифмитическое отрицательных sin(2m(i)).

Пример

: При k=8,40 M={0.2; -5,9; -6,4; -1,3; 5,4; 6,6; 2,4}. Среднеарифмитическое =-0,681 Вот что я сделал на данный момент:

Option Explicit
Dim i, j As Integer
Dim m(1 To 7), k, s As Single
Private Sub Command1_Click()
 
k = CSng(InputBox("Введите k", "Ввод"))
s = 0
For i = 1 To 7
   m(i) = 8 * Sin(Sin(i + k))
   m(i) = Round(m(i), 1)
   If Sin(2 * m(i)) < 0 Then
        s = s + Sin(2 * m(i))
 
    End If
   Print m(i);
Next i
s = Round(s, 3)
Print
Print "среднеарифмитическое = ", s
 
End Sub
 
Private Sub Command2_Click()
End
End Sub

никак не могу разобраться с среднеарифмитическим. подскажите что я делаю не так?

Решение задачи: «Задача с матрицой»

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

                            Option Explicit
Dim i, j As Integer
Dim m(1 To 7), k, s As Single
Dim a As Integer
Private Sub Command1_Click()
 
k = CSng(InputBox("Г‚ГўГҐГ¤ГЁГІГҐ k", "Г‚ГўГ®Г¤"))
s = 0
a = 0
For i = 1 To 7
m(i) = 8 * Sin(Sin(i + k))
m(i) = Round(m(i), 1)
If Sin(2 * m(i)) < 0 Then
s = s + Sin(2 * m(i))
a = a + 1
End If
Print m(i);
Next i
 
s = Round(s / a, 3)
Print
Print "Г±Г°ГҐГ¤Г*ГҐГ*Г°ГЁГґГ¬ГЁГІГЁГ·ГҐГ±ГЄГ®ГҐ = ", s
 
End Sub
 
Private Sub Command2_Click()
End
End Sub
                        