QuickBasic 4.5中REDIM行为不一致问题求助

这是QuickBasic 4.5编译器的已知兼容性bug：在解释器环境（QBasic/QB4.5解释器）中，动态数组跨过程REDIM的逻辑处理更宽松，但编译为EXE时，编译器对LONG类型数组的REDIM参数传递存在错误，导致数组边界计算异常，触发「Subscript out of range」错误。

相关文档说明 #

微软当年的QB4.5官方公开文档里没有明确标注这个特定bug，但在早期内部知识库（KB）中提到过，QB4.5编译器对非INTEGER类型的动态数组跨过程REDIM存在处理缺陷，属于版本局限性问题。

可行修复方案 #

• 方案1：改用模块级共享数组
  将需要REDIM的数组声明为模块级（放在所有SUB/FUNCTION之外），通过SHARED关键字让子过程直接访问，绕开参数传递的bug：

  DECLARE SUB RedimIntArray ()
  DECLARE SUB RedimLongArray ()
  
  ' 模块级动态数组
  DIM SHARED xs() AS INTEGER
  DIM SHARED ys() AS LONG
  
  ' 初始化数组
  REDIM xs(2) AS INTEGER
  PRINT UBOUND(xs)
  RedimIntArray
  PRINT UBOUND(xs)
  
  REDIM ys(2) AS LONG
  PRINT UBOUND(ys)
  RedimLongArray
  PRINT UBOUND(ys)
  
  SUB RedimIntArray
      REDIM xs(10) AS INTEGER
  END SUB
  
  SUB RedimLongArray
      REDIM ys(10) AS LONG
  END SUB
  

• 方案2：临时数组过渡传递
  在调用子过程时额外传递数组当前上下界，用临时数组过渡后再REDIM，避免直接跨过程操作数组的bug：

  DECLARE SUB RedimIntArray (arr() AS INTEGER)
  DECLARE SUB RedimLongArray (arr() AS LONG, currUB AS INTEGER)
  
  ' $DYNAMIC
  DIM xs(2) AS INTEGER
  PRINT UBOUND(xs)
  RedimIntArray xs()
  PRINT UBOUND(xs)
  
  ' $DYNAMIC
  DIM ys(2) AS LONG
  PRINT UBOUND(ys)
  RedimLongArray ys(), UBOUND(ys)
  PRINT UBOUND(ys)
  
  SUB RedimIntArray (arr() AS INTEGER)
      REDIM arr(10) AS INTEGER
  END SUB
  
  SUB RedimLongArray (arr() AS LONG, currUB AS INTEGER)
      ' 用临时数组保存原数据（如果不需要保留可跳过）
      DIM temp(currUB) AS LONG
      FOR i = 0 TO currUB
          temp(i) = arr(i)
      NEXT i
      REDIM arr(10) AS LONG
      ' 还原原数据
      FOR i = 0 TO currUB
          arr(i) = temp(i)
      NEXT i
  END SUB
  

• 方案3：升级编译器版本
  正如补充信息提到的，QBX 7.1已经修复了该数组处理bug，而QB64作为现代兼容QBasic的编译器，完全不存在这类历史问题，适合长期开发测试。

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