vb编程~~~创建一个应用程序，用Select语句计算分段函数

Select Case 语句，根据表达式的值，来决定执行几组语句中的其中之一。

Select Case 语句示例

本示例使用 Select Case 语句来判断变量的值。示例中第二个 Case
子句包含了变量值，故只有此区块内的语句会被完成到。

    Dim Number
    Number = 8   ' 设置变量初值。
    Select Case Number   ' 判断 Number 的值。
        Case 1 To 5   ' Number 的值在 1 到 5 之间，包含1 和 5 。
            Debug.Print "Between 1 and 5"
        ' 下一个 Case 子句是本示例中唯一判断值为 True 的子句。
        Case 6, 7, 8   ' Number 的值在 6 到 8 之间。
            Debug.Print "Between 6 and 8"
        Case 9 To 10   ' Number 的值为 9 或 10。
        Debug.Print "Greater than 8"
        Case Else   ' 其他数值。
            Debug.Print "Not between 1 and 10"
    End Select

1-x (x<0)
2x-1 (0 x <10)
y= 3x2+10 (10x<20)
100-5x (x 20)
这个没有看明白，是全部是一组，还是一组中间有二个 比方1-x and x<0或者其它的解法

Private Sub Command1_Click()
Dim x%, y%
x = Val(Text1.Text)
Select Case x
Case Is < 0
y = 1 - x
Case Is < 10
y = 2 * x - 1
Case Is < 20
y = 3 * x ^ 2 + 10
Case Else
y = 100 - 5 * x
End Select
Text2.Text = CStr(y)
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Command1.Caption = "计算"
Command2.Caption = "退出"
End Sub

你的题目没有给出x=0的情况