2011风之叶 发表于 2012-2-11 23:04:13

数组的声明是否可以不说明这个数据组包含多少个数据

我现在想声明一个数据组,但是我不确定这个数据组有多少个数据,怎么办

afan 发表于 2012-2-11 23:20:39

Local $a
需要更改时 ReDim

skyfree 发表于 2012-2-12 09:09:29

本帖最后由 skyfree 于 2012-2-12 09:10 编辑


Dim $a_Array
MsgBox(0 + 64, "信息", "当前数组上限为: " & UBound($a_Array))

Dim $r = "", $n = -1
While 1
      $r = InputBox("重定义数组", "输入数组上限", "")
      If @error = 1 And $r = "" Then
                ExitLoop
      Else
                $n = Number($r)
                If $n <= 0 Then
                        MsgBox(0 + 48, "注意", "请输入正确的数组上限")
                Else
                        ExitLoop
                EndIf
      EndIf
WEnd

If $n > 0 Then
      ReDim $a_Array[$n]
      MsgBox(0 + 64, "信息", "重定义后数组上限为: " & UBound($a_Array))
EndIf

cxlater 发表于 2012-2-12 10:36:25


#include <string.au3>
_arrayadd

zyfzyj 发表于 2012-2-12 10:44:37

学习下!!!
页: [1]
查看完整版本: 数组的声明是否可以不说明这个数据组包含多少个数据