编程求下列多项式的值

我编写的代码如下

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编辑过]

x = Val(Text1.Text)这个也应该放外面啊
Private Sub Command1_Click()
x = Val(Text1.Text)
If x > 8 And x < 20 Then

y = 2 * x + Cos(1 / (x * x * x))
Label1.Caption = y

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

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

Else
Label1.Caption = "输入错误"

End If



End Sub

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

先看代码吧

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() 里都要有呢？

Dim x!, y!
Private Sub Command1_Click()
x = Val(Text1.Text)
Select Case x
Case 8,20,-6,5,25,40
Exit Sub
Case 8 To 20
y = 2 * x + Cos(1 / (x ^ 3))
Case - 6 To 5
y = 2 * x * Sin(x) - 8
Case 25 To 40
y = 3 + Exp(x) + 2 / x
End Select
Label1.Caption = y
End Sub

对于2楼 把Val语句提到if外面 起到了简化代码的作用 但是功能和1楼毫无区别；
对于3楼 select case里面的case 用to的话 定义的就是闭区间 如果向使用开区间 就需要如同7楼（当然是整数的话就不用这么麻烦 case 9 to 19就是了）

对于6楼 你在form load里面加这个根本没有任何意义 我不明白为什么你加这个对你的程序功能会有影响

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