放血,求一个VB编程小题

Private Sub Command1_Click()
Dim x As Integer
Dim y As Integer
x = Text1.Text
Select Case x
Case Is < 0
y = 2 * x - 1
Case Is > 1
y = x + 1
Case 1
MsgBox "1不在定义域中。"
Case Else
y = x * x
End Select
Text1.Text = y
End Sub

放一个text1，放一个command1即可。

建一个Command1。单击按钮即可。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
x = InputBox("x=?")
Print Switch(x < 0, 2 * x - 1, x >= 0 And x < 1, x * x, x > 1, x + 1)
End Sub

Option Explicit
Private Sub Form_Click()
Dim x As Single, y As Single
x = Val(InputBox("请输入x=："))
If x < 0 Then
y = 2 * x - 1
ElseIf (x >= 0 And x < 1) Then
y = x ^ 2
Else
y = x + 1
End If
Print "x="; x, "y="; y
End