求解一道关于函数的vb题目用自定义函数过程,输入x,n,系数An,计算并输出函数的值.y=

private function y(x as single,n as integer,a() as single) as double
y=g(x)+h(x+3,n,a())+g(2*x)
print y
end function

private function g(xg as single) as double
g=sin(37*3.1416/180)*e^(3*xg)
end function
private function h(xh as single,nh as integer,ah() as single) as double
dim i as integer
h=0
for i=1 to nh
h=h+ah(i)*(ln(xh))^i
next
end function