为什么要求常数表达式？？

szwbluesky · 发表于 2004-12-31 11:44:00

win2000,2002 VBA
写了一段程序，
Public Function closeCurPt(ByVal ptOpenPit As Variant, _
ByRef segOpenPit As Variant) As Variant
   Dim countArr As Integer
   countArr = ptOpenPit.Count - 1
   Dim ptArr(countArr) As Double
　。。。。。。。
编译错误：要求常数表达式。（ptArr数组）
在定义ptArr数组的时候，countArr 应该已经有值了，为什么不行呢？
将Dim ptArr(countArr) As Double 换成Dim ptArr(9) As Double 进行调试，
countArr的值是45。
帮看一下好吧，谢谢！