dim as integer x = 5
dim as integer y = -1
'' 顺序检查(简化了IF语句)
select case x
case 1
print "it's 1"
case 2, 3, 4
print "it's one of 2, 3 or 4"
case is >= 5
print "it's >= 5"
case y
print "same as y"
case else
print "something else"
end select
'' 使用跳转表(如果有大量的检查这样速度会更快,但只能用来检查常量):
select case as const x
case 1
print "it's 1"
case 2, 3, 4
print "it's one of 2, 3 or 4"
case 5
print "it's 5"
case else
print "something else"
end select