编制事件过程Command1_Click，执行该过程时调用InputBox函数输入x，按下式计算y

Private Sub Command_Click()
Dim x As Single
x = InputBox("请输入X","提示")
Select Case x
Case x < -5
y=...
Case x >= -5 And x<= 5
y=...
Case x >5
y=...
End Select
msgbox("Y="&y,0,"答案")
End Sub
你那数学公式我没看明白，你自己写吧！
e的x次方写成Exp(x)
sin等可直接用

你主要是计算题的吧？我手机，我说下实现的思路

Command的Click中代码：Dim x , y
x=inputbox("请输入X：","提示")

当输入后利用x值进行y的计算！

代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
Dim x As Single, y As Single
x = Val(InputBox("x=?"))
Select Case x
Case Is < -5
y = 3 * x * x + 2 * x - 1
Case -5 To 5
y = x * Sin(x) + 2 ^ x + Exp(x)
Case Is > 5
y = (x - 5) / 2 + Log(x) 'ln在VB中表示为Log，没有错
End Select
Print y
End Sub