Вычислить значение функции: z = 1 / (Exp(1)) * Cos((Sqr(p ^ 2 + r ^ 2)) / k) - VB

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

Нужна помощь с одной задачей: Вычислить значение функции: z = 1 / (Exp(1)) * Cos((Sqr(p ^ 2 + r ^ 2)) / k), где: Р,k - соответственно произведение и количество элементов массива, которые имеют значения кратные 3. R-максимальный по модулю элемент массива. Очень признателен за помощь! +дан массив x=(-10,12,24,-3,25,0,-34,-13,7,22,44,-10,21,-5,-6,-27,5,-9,-12,4)

Решение задачи: «Вычислить значение функции: z = 1 / (Exp(1)) * Cos((Sqr(p ^ 2 + r ^ 2)) / k)»

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

                            Option Explicit
 
Private Sub Command1_Click()
Dim x, i As Integer
Dim p As Double  'произведение элементов массива, которые имеют значения кратные 3
Dim k As Integer 'количество элементов массива, которые имеют значения кратные 3
Dim r As Double  'максимальный по модулю элемент массива
Dim z As Double
Dim s As String
s = "Maссив:  " & vbCrLf
x = Array(-10, 12, 24, -3, 25, 0, -34, -13, 7, 22, 44, -10, 21, -5, -6, -27, 5, -9, -12, 4)
r = Abs(x(0))
p = 1
For i = 0 To UBound(x)
     If Abs(x(i)) > r Then r = Abs(x(i))
     If x(i) Mod 3 = 0 Then
            p = p * x(i)
            k = k + 1
     End If
     s = s & x(i) & ",  "
Next i
z = 1 / (Exp(1)) * Cos((Sqr(p ^ 2 + r ^ 2)) / k)
s = s & vbCrLf & "Максимальный по модулю элемент массива:  " & r & vbCrLf & _
        "Количество элементов массива, которые имеют значения кратные 3:  " & k & vbCrLf & _
        "Произведение элементов массива, которые имеют значения кратные 3:  " & p & vbCrLf & _
        "Значение функции z:  " & Round(z, 10)
 
 
MsgBox s
End Sub
                        