vb case 怎么表达并且

Question

比如 当x<0 且X<>-3

Answer 1

'方法一：
x = -3
Select Case True     '判断的依据是Case后面的判断条件是否为"True"
    Case x < 0 And x <> -3 : Msgbox "AA"
    Case x > 0 : Msgbox "BB"
End Case

'方法二：
x = -3
Select Case x
    Case Is = -3:   
    '先将特殊情况列出来，在特殊情况下执行什么语句，不执行语句就什么也不写
    '然后再列出其他情况
    'Case语句执行判断的顺序是自上而下，
    '如果上一个条件满足，那么下面的条件则不再判断
    Case Is < 0: MsgBox "A"   
    Case Is > 0: MsgBox "BB"
End Select

Answer 2

Case x < 0 And x <> -3

有问题亲追问，满意请采纳。

追问

and 是不行的~~我试过了

追答

额。。。刚刚只是测试了几个数据。
这样确实不能完美解决。

可以先定义一个Boolean 类型的变量用来存储x -3的值，然后在case True就ok了

Answer 3

case-单词讲解（释义、例句）