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