论坛 › 已解决问题区 › [已解决]ReDim数组出错

天堂泪吻泪 发表于 2010-12-27 23:22:50

[已解决]ReDim数组出错

本帖最后由 天堂泪吻泪 于 2010-12-28 13:04 编辑


Dim $a
Dim $n = 0
While 1
        $n += 1
        ReDim $a[$n]
        $a[$n] = $n
        If $n = 20 Then ExitLoop
        MsgBox(0, "", $a[$n])
WEnd

在下想知道为什么不行!因为这个数组是一个未知数,所以暂定为20!可能是很低级的问题,但在下对数组的认识,真是少之又少,请见谅!
{:1_428:}

sxd 发表于 2010-12-28 00:24:14

声明数组的时候是声明的长度 而访问数组时候的下标是从0开始的

#include <Array.au3>
Dim $a
Dim $n = 0
While 1
      $n += 1
      ReDim $a[$n]
      $a[$n-1] = $n
      If $n = 20 Then ExitLoop
      MsgBox(0, "", $a[$n-1])
WEnd
_ArrayDisplay($a)

天堂泪吻泪 发表于 2010-12-28 09:09:30

回复 2# sxd


    原来这样，谢谢Sxd前辈！

lamlp 发表于 2010-12-29 19:12:02

我也遇到过，运行的时候有服数组边界错误

查看完整版本: [已解决]ReDim数组出错