请帮忙看看select case语句能这样写吗？

Question

select case str
    case "A" or "B"
        statements1
    case "C" or "D"
        statements2
end select意思就是当满足条件A和B时的运算一样，C和D的是一样。我这样写程序就不认了，难道说非要写成下面这样吗？ select case str
    case "A"
        statements1
    case "B"
        statements1
    case "C"
        statements2.......
end select呵呵，问题比较弱，希望各位帮帮忙，谢谢！

Answer 1

晕啊，刚发完帖子就找到答案了。我真笨啊。http://msdn.microsoft.com/library/chs/default.asp?url=/library/CHS/vbcn7/html/vaconUsingSelectCase.asp贴出来大家一起学习一下吧。呵呵如果要将同一表达式与多个不同值进行比较，可以使用 Select...Case 语句替换 If...Then...Else 语句。虽然 If 和 ElseIf 语句可在每个语句中计算不同的表达式，但 Select 语句只计算一个表达式一次，然后在每次比较中都使用它。Visual Basic 将表达式的值与 Case 语句中的值进行比较，比较时按照这些值在 Select...Case 块中的出现顺序进行。如果它发现一个匹配项或一条 Case Else 语句，则它执行相应的语句块。在任何情况下，它都接着执行 End Select 语句后面的代码。可以有任意数量的 Case 语句，而且可以包括或省略 Case Else 语句。在下面的示例中，Select...Case 用于计算传递给 Function 过程的表现等级。请注意，每个 Case 语句可以包含多个值、一个值的范围或值与比较运算符的组合。当 Case 语句包含多个值时，如果这些值中的任何一个匹配 Select 语句表达式的值，则执行该 Case 块。Function Bonus(ByVal Performance As Integer, ByVal Salary As Decimal) _
      As Decimal
   Select Performance
     Case 1   ' Performance is 1.
        Return Salary * 0.1
     Case 2, 3   ' Performance is 2 or 3.
        Return Salary * 0.09
     Case 5 To 7   ' Performance is 5, 6, or 7.
        Return Salary * 0.07
     Case 4, 8 To 10   ' Performance is 4, 8, 9, or 10.
        Return Salary * 0.05
     Case Is < 15   ' Performance is 11, 12, 13, or 14.
        Return 100
     Case Else   ' Performance is < 1 or > 14.
        Return 0
   End Select
End Function

Answer 2

那就這樣寫了select case str
    case "A","B"
        statements1
    case "C","D"
        statements2
........
end select

Answer 3

case "A","B"
中间用逗号分隔就可以了！

Answer 4

select case str
    case "A" , "B"
        statements1
    case "C" , "D"
        statements2
end select

Answer 5

接分了，以后先上GOOGLE或BAIDU找，找不到再问：）

Answer 6

接分
select case str
    case "A" , "B"
        statements1
    case "C" , "D"
        statements2
end select