VB.Net Switch 语句，在每种情况下都包含代码段

Question

所以我正在用 VB.Net 编写一个程序，并且有一个关于 Select/Case 语句的简单问题，我似乎无法找到答案。所以现在我的案例看起来像这样:

Select Case numColumns
    Case 0
        numColumns = numColumns + 1
        'Some code
    Case 1
        numColumns = numColumns + 1
        'Some different code
    Case 2
        numColumns = numColumns + 1
        'Some even more different code
    Case Else
        'Do Nothing
End Select

本质上，对于 Case Else，我需要在每个 Case 中都有 numColumns = numColumns + 1 语句。有没有一种方法可以在不向每个 Case 语句添加相同代码行的情况下执行此操作？

我能想到的简单解决方案是在我的选择之前有一个 if 语句，然后在那里进行递增，但我想知道是否有办法像 Case All 线什么的。

Answer 1

这应该有效:

Select Case numColumns
    Case 0 To 2
        numColumns = numColumns + 1
        'Some code
    Case Else
        'Do Nothing
End Select

编辑:

如果你认为它比之前的 If 语句更漂亮，你可以用一个额外的 Select/Case 来解决它:

Select Case numColumns
    Case 0 To 2
        numColumns = numColumns + 1

        Select Case numColumns
            Case 0
                'Some code
            Case 1
                'Some different code
            Case 2
                'Some even more different code
        End Select
    Case Else
        'Do Nothing
End Select

如果您真的在 Else 部分“什么都不做”，那么您可以完全省略它。