如何使用 SELECT CASE 和 TO 使用 INTEGER

Question

我正在尝试在我的代码中使用SELECT CASE。

但即使变量的值也在SELECT CASE中的设置值之间 它不会命中该案例中的代码。

例如：

Dim i as Integer = 27

Select Case i
   Case 3 To 33
      'This would be Hit
   Case 34 To 50 
      'Some Code
   Case Else
End Select

现在。注释中的以下代码 This would be hit 无法执行。

如何解决？

问候，

Answer 1

要么你弄错了，要么你的系统上的某些东西坏了。我刚刚在一个控制台项目中测试了这段代码：

Module Module1

    Sub Main()
        Dim i As Integer = 27

        Select Case i
            Case 3 To 33
                'This would be Hit
                Console.WriteLine("i is in the range 3 to 33")
            Case 34 To 50
                'Some Code
                Console.WriteLine("i is in the range 34 to 50")
            Case Else
                Console.WriteLine("i is in not in either range")
        End Select

        Console.ReadLine()
    End Sub

End Module

我看到了消息：

i 在 3 到 33 的范围内

正如预期的那样。