将函数（x<0)y=x (0<x<=10)y=x*x (10<x<=20)y=10 (20<x<=40)y=0.5*x+20用select case编程

各位大哥大姐们拜托了！！！！

Private Sub Command1_Click()
Dim x!, y!
x = Text1
Select Case x
Case Is < 0: y = x
Case Is > 40:
Case Is > 20: y = 0.5 * x + 20
Case Is > 10: y = 10
Case Is > 0: y = x * x
End Select
Label1 = y
End Sub

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/fs2q7sq7f.html