vb问题，为什么select case 后面跟x是错的，跟y就对了

Private Sub Form_click()
Dim x!, y!
pi = 3.1415926
x = Val(InputBox("x"))
If x >= 10 Or x = 0 Then
MsgBox "d"
Else
Select Case y
Case x >= 5 And x < 10
y = 2 * x
Case x > 0 And x < 5
y = 3 * x
Case x < 0
y = 4 * x
End Select
Print y
End If

End Sub

你这个代码就不应该用select case，应该用if...elseif
Private Sub Form_click()
    Dim x!, y!
    pi = 3.1415926
    x = Val(InputBox("x"))
    If x >= 10 Or x = 0 Then
        MsgBox "d"
    Else
        If x >= 5 And x < 10
            y = 2 * x
        ElseIf x > 0 And x < 5
            y = 3 * x
        ElseIf x < 0
            y = 4 * x
        End If
        Print y
    End If
End Sub

我。。知。。道 加。。我。。私。。聊