数组删除元素后出错,麻烦帮忙看下,谢谢 [已解决]

骗子

很奇怪,为什么会报错呢,而且出错的地方也没准
我的想法是建立一个 数组,然后随机一个序号删除里面的一个元素,直到清空数组为止
但是运行以后总是报错,实在头大了.

Local $aIE[1]
$aIE[0] = ''
For $i = 0 To 33
        ReDim $aIE[$i + 1]
        $aIE[$i] = $i
Next
_ArrayDisplay($aIE)
While 1
        $xuhao = Random(0, UBound($aIE), 1)
        ConsoleWrite(UBound($aIE) &'   '&$aIE[$xuhao]&@CRLF)
        FileWrite('sdf.txt', $aIE[$xuhao] & @CRLF)
        _ArrayDelete($aIE, $xuhao)
        If UBound($aIE) < 2 Then ExitLoop
WEnd

"H:\???\VPN\ES vpn\??????.au3" (15) : ==> ???????????????????.:
ConsoleWrite(UBound($aIE) &'   '&$aIE[$xuhao]&@CRLF)
ConsoleWrite(UBound($aIE) &'   '&^ ERROR

shenrenba

$xuhao = Random(0, UBound($aIE)-1, 1)