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

Private Sub Command1_Click()
Const n As Integer = 7
Const a As Integer = 2
Const b As Double = 3.5
Dim X, M, E, D As Double
 
 
For i = 1 To 5
 X = X * i
 Next
    M = Sqr(1 * (X * i - a) ^ 2) / (n - 1)
    E = Sqr(1 * (X * i - b) ^ 2) / (n - 1)
    Print M
    Print E
    
Print M / E
End Sub

Private Sub Command1_Click()
Const n  = 7
Const a  = 2
Const b  = 3.5
Dim X(5)
s1 = 0
s2 = 0
For i = 1 To 5
    X(i) = i
    s1 = s1 + (X(i) - a) ^ 2
    s2 = s2 + (X(i) - b) ^ 2
Next
D = (s1 ^ 0.5 / (n - 1)) / ((s2 / (n - 1)) ^ 1 / 3)
MsgBox "D = " & D
End Sub

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