Двумерный массив: В виде общей процедуры оформить вычисление суммы и расчет количества суммируемых элементов - VB

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

Прошу помочь с задачей D = где xi – элементы одномерного массива X = (x1, x2,…x5); n = 7; a = 2; b = 3,5. В виде общей процедуры оформить вычисление суммы и расчет количества суммируемых элементов.

Решение задачи: «Двумерный массив: В виде общей процедуры оформить вычисление суммы и расчет количества суммируемых элементов»

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

                            Function fn(ByRef x() As Double, _
n As Double, a As Double, b As Double) As Double
s1 = 0
s2 = 0
For i = LBound(x) To UBound(x)
    s1 = s1 + (x(i) - a) ^ 2
    s2 = s2 + (x(i) - b) ^ 2
Next
fn = (s1 ^ 0.5 / (n - 1)) / ((s2 / (n - 1)) ^ 1 / 3)
End Function
 
Private Sub Command1_Click()
Dim x(5) As Double
'заполнение x(i) случайными числами
For i = 1 To 5
    x(i) = Rnd(i) * 10
Next
Const n As Double = 7
Const a As Double = 2
Const b As Double = 3.5
MsgBox "D = " & fn(x(), n, a, b)
End Sub
                        