编程求下列多项式的值

我编写的代码如下

Private Sub Command1_Click()

If x > 8 And x < 20 Then
x = Val(Text1.Text)
y = 2 * x + Cos(1 / (x * x * x))
Label1.Caption = y

ElseIf x > -6 And x < 5 Then
x = Val(Text1.Text)
y = 2 * x * Sin(x) - 8
Label1.Caption = y

ElseIf x > 25 And x < 40 Then
x = Val(Text1.Text)
y = 3 + Exp(x) + 2 / x
Label1.Caption = y

Else
Label1.Caption = "输入错误"

End If



End Sub

其中 Command1 为计算按钮 label1为输出结果。

以上代码那里错误了，计算时候结果不正确啊。请各位帮助下，谢谢。。。

[此贴子已经被作者于2007-7-19 16:40:54编辑过]

我换其他语句实现了功能 但是又有其他问题了

先看代码吧

Dim x!, y!
Private Sub Command1_Click()

x = Val(Text1.Text)

Select Case x

Case 8 To 20
y = 2 * x + Cos(1 / (x ^ 3))
Label1.Caption = y


Case -6 To 5
y = 2 * x * Sin(x) - 8
Label1.Caption = y

Case 25 To 40
y = 3 + Exp(x) + 2 / x
Label1.Caption = y

End Select


End Sub


就是不包括 8 20 -6 5 25 40 这些点 要怎么处理呀？

就是不包括 8 20 -6 5 25 40 这些点 要怎么处理呀？

我其他代码都不变
添加了
Private Sub Form_Load()
x = Val(Text1.Text)
End Sub
可以了

请问添加
Private Sub Form_Load()
x = Val(Text1.Text)
End Sub
就OK的原因 能不能解释下啊？ 虽然解决了，但不是很了解啊。

为什么 x = Val(Text1.Text)

在 Private Sub Form_Load() 和 Private Sub Command1_Click() 里都要有呢？

恩  明白了   运行正常   谢谢各位了。。。