X在X1-X2区间有几种判断方法．

Question

区间数 X1=100,X2=150
采用If语句　
  if x>x1 and x< x2 then
    x = x2
  end if
因为，x1,x2数据需要随时调整，数据间隔x1,x2----到x20左右．
用If语句不方便．
　　请问各位大侠还有什么更好的办法？？谢谢．　 

Answer 1

等于没说，
目标需求是．用Array方法，Select case方法哪些方法比较简单实用．

Answer 2

FUNCTION GETX(X1,X2)
if x>x1 and x< x2 then
  GETX = x2
  end if
END FUNCTION

Answer 3

不用写函数，用老掉牙的GoSub语句：
Private Sub Command1_Click()
        Dim X As Double, X1 As Double, X2 As Double
                 
        X1 = 100: X2 = 150: X = 120
        GoSub CalCt
        X1 = X: X2 = 200: Debug.Print X
        X = 80
        GoSub CalCt
        X1 = X: X2 = 300: Debug.Print X
        X = 100
        GoSub CalCt
        X1 = X: X2 = 400: Debug.Print X        Exit Sub
CalCt:
        If X > X1 And X < X2 Then
           X = X2
        End If
        ReturnEnd Sub

Answer 4

If X > X1 And X < X2 ThenIf X1 < X And X < X2 Then'这样写更像X1<X<X2

Answer 5

再传一个x作参数可能更好吧:)
Function GETX(X1, X2, x)    If x > X1 And x < X2 Then
        GETX = X2
    End IfEnd Function