VB关于case 和elseif

Question

if a=10 and b=20 then 
 print ss=1
elseif a=20 and b=30 then 
 print ss=2
elseif a=30 and b=50 then 
 print ss=3
else 
 print ss=4
end if 
**************************
这个语句怎么用
Select case
 
end select
来表示,是不是就根本不能实现这样的功能?

Answer 1

用else 语句不好吗？
干嘛一定要用select语句

Answer 2

select case  GetCase(a,b)
       case  1
            执行1
       case  2
            执行2
       case  3
            执行3
       case  4
            执行4
         ............
    sub GetCase(byval tempa as interger, byval tempb as interger) as interger
          返回1
          返回2
          返回3 
          返回4
                  代码部分视情况而定
          .....................
    end  sub

Answer 3

其实select case 就是一系列的if语句，你用if和select case差不多。

Answer 4

 不是不能，完全是可以的，没有办法，贴出代码，没有什么太多意义：    Select Case (a > 0 And b > 0)
        Case (a = 10 And b = 20):
             Print "ss = 1"
        Case (a = 20 And b = 30):
             Print "ss = 2"
        Case (a = 30 And b = 50):
             Print "ss = 3"
        Case Else
             Print "ss = 4"
    End Select

Answer 5

Select Case (a  And b)
        Case (a = 10 And b = 20):
             Print "ss = 1"
        Case (a = 20 And b = 30):
             Print "ss = 2"
        Case (a = 30 And b = 50):
             Print "ss = 3"
        Case Else
             Print "ss = 4"
    End Select

Answer 6

Select Case (a  And b)？？？
这肯定有问题，因为这里的And成了数值间的And运算，与下面的Bool值会出现差错，
如a=10、b=20时，(a  And b)得到0，会"ss = 2"Select Case (a > 0 And b > 0)
看样子是可以，当其为True时，得出和结果与题意完全符合！
但若a或b，任一个<=0时，其值为False，那么下面的输出就错了，本来应输出"ss = 4"，现在全成了"ss = 1"其实这样写就可以了：
   Select Case True
        Case (a = 10 And b = 20):
             Print "ss = 1"
        Case (a = 20 And b = 30):
             Print "ss = 2"
        Case (a = 30 And b = 50):
             Print "ss = 3"
        Case Else
             Print "ss = 4"
    End Select
它与If判断，本质上是一回事。

Answer 7

 homezj(小吉) 是说对了 kmzs(.:RNPA:.山水岿濛 做错了 ^_^