程序代码：

Dim y As Integer
    Dim p As Integer
    y = 0
    p = 0
    Dim a(8) As Integer
    a(1) = 1
    a(2) = 3
    a(3) = 22
    a(4) = 6
    a(5) = 10
    a(7) = 222
    a(6) = 62
    a(8) = 102
    For i = 1 To 8
           Select Case a(i)
                y = y + 1
            End Select
    Next
    MsgBox y
    For j = 1 To 8
    Select Case Sheet1.Cells(1, j)
        Case 1, 3, 22, 6, 10, 222, 62, 102
            p = p + 1
    End Select
    Next
    MsgBox p
的确是不一样，有什么办法使得select case 可以使用不定数目的条件呢。
比如在select case 在10次循环中每次case的条件数目不同，
比如这次可能是
case 1,2,3
下次可能是
case 3,5,6,7,8
就是怎么样动态地添加case的条件。