VB6中如何用常量声明数组大小？报‘Expected integer constant’错

核心结论：VB6不支持在Dim语句中直接用常量指定固定大小数组的下标 #

你遇到的"Expected integer constant"错误是VB6的语法限制导致的——哪怕你定义了合法的Const，VB6在解析Dim声明的静态数组时，要求下标必须是字面量整数（比如直接写6），不接受常量标识符。这和你声明常量的方式无关，三种写法都是合法的常量声明，只是用在Dim数组下标时不符合语法要求。

可行的解决方案 #

1. 你已尝试的ReDim方案（推荐）

这是最直接且符合VB6语法的方式，动态数组（先Dim my_array()声明为空数组，再用ReDim指定大小）允许使用常量来定义下标，完全满足你的需求：

Const ARRAY_LAST_INDEX = 6
Dim my_array()
ReDim my_array(ARRAY_LAST_INDEX)

后续修改数组长度时，只需要更新ARRAY_LAST_INDEX的值，循环遍历直接用For i = 0 To ARRAY_LAST_INDEX，就能避免遗漏更新循环条件的问题。如果后续需要调整数组大小且保留现有数据，可以加Preserve关键字：ReDim Preserve my_array(new_index)。

2. 使用枚举（Enum）管理数组边界

如果需要管理多个数组的边界值，用枚举归类会更清晰，枚举成员本质也是编译时常量，同样可以用于ReDim：

Enum ArrayBounds
    UserArray_LastIndex = 6
    ProductArray_LastIndex = 10
End Enum

Dim my_array()
ReDim my_array(ArrayBounds.UserArray_LastIndex)

这种方式能避免常量名冲突，更适合大型项目的边界值管理。

3. 模块级数组的初始化

如果是模块级或全局数组，可以在模块的Initialize事件（类模块）或窗体的Form_Load事件中用ReDim初始化，同样复用常量值：

' 模块级常量和数组声明
Const ARRAY_LAST_INDEX = 6
Dim my_array()

Private Sub Form_Load()
    ReDim my_array(ARRAY_LAST_INDEX)
    ' 后续数组赋值、循环逻辑
End Sub

额外提醒 #

不管用哪种方案，循环遍历数组时一定要直接引用常量/枚举成员，不要写死数字。比如：

' 正确写法
For i = 0 To ARRAY_LAST_INDEX
    ' 处理数组元素
Next i

' 错误写法（容易遗漏更新）
For i = 0 To 6
    ' 处理数组元素
Next i

内容的提问来源于stack exchange，提问作者fresko