vb.net - 如何在 VB.NET 中将数组设置为值列表？

Question

我无法弄清楚如何将数组设置为两组数字之一(稍后会有更多)，我尝试的每种方法都会引发某种错误。我尝试将 case 语句内的数组调暗，但随后我无法在 For Each 中使用该数组，这使得这毫无值(value)......任何想法将不胜感激。

代码:

Dim HourArray() As Integer

Select Case CurrentShapeRow(ROW_PERIOD)
    Case "ON", "2X16"
        HourArray = {6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21}
    Case "2X8", "5X8"
        HourArray = {0, 1, 2, 3, 4, 5, 22, 23}
    Case Else
        Throw New Exception(String.Format("Unhandled Period: {0}", CurrentShapeRow(ROW_PERIOD)))
End Select


For Each HourCount As Integer In HourArray()
     'DO SOME STUFF HERE
Next

Answer 1

HourArray = New Integer() {1,2,3,4,5,6,7,8,9}