输入x,计算y=x^2+sh(x).要求编写一个通用函数过程,求双曲正弦函数的值;sh(x)=(EXP(x)-EXP(-x))/2 vb语言

Option Explicit
Private Sub Command1_Click()
Dim x As Single
Dim y As Single
x = Val(InputBox("输入X!"))
y = f(x)
Print y
End Sub
Private Function f(ByVal x As Single) As Single
Sh = x ^ 2 + (Exp(x) - Exp(-x)) / 2
End Function