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

现在。注释中的以下代码将被击中无法执行。

如何解决？

此致

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

符合预期。

如何将SELECT CASE与TO一起使用INTEGER

1 个答案: