Select Case中怎么才能把CASE的那里搞成变量?

Question

Select Case P
            Case XX,XX,XX,XX,XX   
        End Select
XX,XX,XX,XX,XX这里怎么弄成变量?

Answer 1

i=1
j=2
k=1select case i
    case j，k
       ...
    case else
       ...
end select

Answer 2

我是
XX,XX,XX,XX,XX这里定义有N个XX
怎么弄

Answer 3

dim i as integer,j as integer
i=1:j=1
select case i
    case is = j
        msgbox "ok"
end select

Answer 4

select case i
    case is > j
        msgbox "ok"
end select