启用VbaSupport 1后LibreOffice Basic数组越界问题求解

错误原因 #

启用Option VbaSupport 1后，LibreOffice Basic会切换至VBA兼容的数组索引规则——默认数组下标从0开始，而非LibreOffice原生Basic默认的1起始。这直接导致了你的数组索引越界问题：

• 原静态数组ArrPump(1 to maxPump)虽语法上允许指定起始下标，但VBA兼容模式下的内部处理逻辑可能引发冲突；
• 动态数组ReDim Preserve ArrPump(3)实际创建的是下标0到3的数组，若后续代码中索引取值超出你预期的1-3范围（比如误用到下标0），就会触发索引越界错误。

修复方案 #

方案1：明确指定动态数组的1起始下标 #

修改initArr中的ReDim语句，强制数组下标从1到3，完全匹配你的赋值和使用逻辑：

Public ArrPump() As TPump

Sub initArr()
    ReDim Preserve ArrPump(1 To 3) ' 明确限定下标范围为1-3
    ArrPump(1).Run = True
    ArrPump(1).Err = False
    ArrPump(1).Time = 10
    ArrPump(2).Run = False
    ArrPump(2).Err = True
    ArrPump(2).Time = 20
    ArrPump(3).Run = True
    ArrPump(3).Err = False
    ArrPump(3).Time = 30
End Sub

后续使用时，确保循环或索引取值在1-3之间即可。

方案2：适配VBA默认的0起始下标 #

遵循VBA数组规则，将数组下标改为从0开始，同步调整赋值和后续索引逻辑：

Public ArrPump() As TPump

Sub initArr()
    ReDim Preserve ArrPump(0 To 2) ' 3个元素，下标0、1、2
    ArrPump(0).Run = True
    ArrPump(0).Err = False
    ArrPump(0).Time = 10
    ArrPump(1).Run = False
    ArrPump(1).Err = True
    ArrPump(1).Time = 20
    ArrPump(2).Run = True
    ArrPump(2).Err = False
    ArrPump(2).Time = 30
End Sub

后续使用时，循环变量需从0开始，比如用For i = 0 To UBound(ArrPump)遍历数组。

方案3：修复静态数组的兼容性问题 #

若坚持使用静态数组，需确保在VBA兼容模式下明确指定下标范围，同时排查所有数组访问的索引是否在1-maxPump之间：

Option VbaSupport 1
Const maxPump As Byte = 3
Type TPump
    Run As Boolean
    Err As Boolean
    Time As Integer
End Type
Public ArrPump(1 To maxPump) As TPump

额外排查要点 #

触发错误的If ArrPump(i).Run Then语句中，务必检查变量i的取值范围：

• 若用方案1，i需在1-3之间；
• 若用方案2，i需在0-2之间；
  避免出现i=0或i>3这类超出有效下标的情况。

内容的提问来源于stack exchange，提问作者Антон Сибгатулин