Среднее арифметические чисел из выделенного массива - VB

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

Sub lab341()
n = x.Cells.Count
S = 0
For k = 1 To n
S = S + x.Cells(k)
Next k
SA = S / n
Cells(8,1) = SA
End Sub

Я не могу понять, в чем ошибка. Помогите, пож.

null

в этом случае, переводится в функцию, а мне этого не надо.

Решение задачи: «Среднее арифметические чисел из выделенного массива»

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

                            Sub lab341()
n = Selection.Rows.Count
m = Selection.Columns.Count
S = 0
For k = 1 To n
For i = 1 To m
S = S + Selection.Cells(k, i)
Sum = S / (m * n)
Next
Next
Cells(4, 1) = Sum
End Sub
                        

Оцени полезность:

10 голосов , оценка 4 из 5

Похожие ответы