Функция как аргумент функции

    Function y(ByVal x As Single) As Single
        Return k * (Math.E ^ (x / 3) + Math.E ^ (-x / 3)) / 2
    End Function
 
    Function summ(ByVal f() As Single, ByVal start As Integer, ByVal final As Integer, ByVal h As Integer) As Single
        Dim i As Integer, sum As Single
        sum = 0
        For i = start To final Step h
            sum = sum + f(i)
        Next
        Return sum
    End Function
 
    Function integra(ByVal fu() As Single, ByVal a As Single, ByVal b As Single, ByVal h As Single) As Single
        Return h / 3 * (fu(a) + fu(b) + 4 * summ(fu, a + h, b - h, h) + 2 * summ(fu, a + 2 * h, b - 2 * h, h))
    End Function

Function a(ByVal x)
a = x * 2
End Function
Function b(ByVal x)
b = x * 3
End Function
Sub c()
MsgBox a(b(2))
End Sub

    FUNCTION integra(BYVAL fu() AS SINGLE, BYVAL a AS SINGLE, BYVAL b AS SINGLE, BYVAL h AS SINGLE) AS SINGLE
        RETURN h / 3 * (fu(a) + fu(b) + 4 * summ(fu, a + h, b - h, h) + 2 * summ(fu, a + 2 * h, b - 2 * h, h))
    END FUNCTION

integra(y,1,9,1)

Function a(ByVal x)
    a = x * 2
End Function
Function b(Optional ByVal x = 5)
    b = x * 3
End Function
Sub c()
    MsgBox a(b)
End Sub

function a(byval x as Single) as Single
return x^2 + 2
end function
 
function b(byval a as <функция> , Byval x as Single) as single
return a(x)^3 - a(3*x)^2
end function
 
msgbox(b(a,3))

FUNCTION a(BYVAL x AS SINGLE) AS SINGLE
RETURN x^2 + 2
END FUNCTION
 
FUNCTION b(BYVAL x AS SINGLE) AS SINGLE
RETURN a(x)^3 - a(3*x)^2
END FUNCTION
 
msgbox(b(3))

FUNCTION a(BYVAL x AS SINGLE) AS SINGLE
RETURN x^2 + 2
END FUNCTION
 
FUNCTION b(BYVAL x AS SINGLE) AS SINGLE
RETURN x^3 - (3*x)^2
END FUNCTION
 
FUNCTION с(BYVAL x AS SINGLE) AS SINGLE
RETURN x^(1/3) - x
END FUNCTION
 
FUNCTION d(BYVAL x AS SINGLE) AS SINGLE
RETURN ABS(x^3) - 4*x
END FUNCTION

FUNCTION func(byval f as [функция],BYVAL x AS SINGLE) AS SINGLE
RETURN SQRT(ABS(f(x)^5 + 8))
END FUNCTION

msgbox(func(b,10))

msgbox(func(с,7))