[已解决]ReDim数组出错

天堂泪吻泪

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

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

sxd

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

#include <Array.au3>
Dim $a[1]
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)

天堂泪吻泪

回复 2# sxd


    原来这样，谢谢Sxd前辈！

lamlp

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