15 Январь 2011

Найти среднее арифметическое последних элементов

Арифметика |  Таги:

Найти среднее арифметическое последних элементов

Const str$ = "2;-6;-3;0;2,1;3;-4;1"
Dim Z As Variant, sum#
Dim N#, K#
Private Sub Form_Load()
K = 5
Z = Split(str, ";")
N = UBound(Z)
For i = N To N - K + 1 Step -1
    sum = sum + Z(i)
Next
MsgBox sum / K
End Sub


Оставить комментарий

Я не робот.