一道VB题~求人指教！！呜呜

来源：百度知道 编辑：UC知道 时间：2024/06/22 05:35:14
编制Command1的Click事件过程，要求在窗体启动后单击该命令按钮，将通过在文本框text1中输入数据，按下式计算y并在文本框text2中输出y值。当x<-2时，y=(3X^2-x-1)/x；当-2<=X<1时，y=sinx+2^x；当X>=1时，y=lgx/2。
要求变量定义为Single类型。

窗口上先创建Text1,text2,command1,写代码如下:

Private Sub Command1_Click()

x = Val(Text1)
Select Case x
Case Is < -2
Text2 = (3 * x ^ 2 - x - 1) / x
Case Is < 1
Text2 = Sin(x) + 2 ^ x
Case Is >= 1
Text2 = Log(x) / 2
End Select

End Sub