For i = 0 To 3
    If y(i) <> y(i + 1) Then     
       If m >= 2 Then
          IsEmpty = False
          p = p + 1
          ReDim Preserve s(p)
          s(p) = m
       End If
       m = 1
    Else
       m = m + 1
    End If
  Next
我单击按钮运行以上代码，当我单击第一次的时候s(p)已赋有值，但当我第二次单击按钮时没有满足条件s(p)没赋值，问题就是当s(p)没赋值时，默认就为上一次的值了，我想每次单击按钮前把都把s()清空，怎么打操作，谢谢！！

不行啊。。大虾

Erase s
For i = 0 To 3
    If y(i) <> y(i + 1) Then     
       If m >= 2 Then
          IsEmpty = False
          p = p + 1
          ReDim Preserve s(p)
          s(p) = m
       End If
       m = 1
    Else
       m = m + 1
    End If
  Next
放在语句的前面，就是单击事件之前先清空元素，但这元素个数不是一成不变的，它是根据条件来判断的，谢谢帮忙解决。。。。。等待ING

要像刚开始那样，这个数组是刚定义的一样，里面没有任何元素和值，需要重新给这个数组分配内存空间。