UC知道VBS动态数组的问题
来源：百度知道 编辑：UC知道 时间：2024/06/22 00:36:51
动态数组的问题，为什么不能这样用。
i=0
dim MyArray()
do
a=inputbox ("循环直到输入4为止")
MyArray(i)=a
i=i+1
loop until a="4"
ReDim Preserve MyArray(i)
msgbox Array(i)
可能我理解的动态数组不对？
把不符合要求的数据存放在动态数组里，每次运行脚本不合格的数量都不一定，想用动态数组存放这些数据。
必须先redim然后才能给数组赋值对吧，
这段什么意思：
For i = 0 To UBound(MyArray)
nStr = nStr & MyArray(i) & ","
Next
MsgBox nStr
i=0
dim MyArray()
do
a=inputbox ("循环直到输入4为止")
MyArray(i)=a
i=i+1
loop until a="4"
ReDim Preserve MyArray(i)
msgbox Array(i)
可能我理解的动态数组不对？
把不符合要求的数据存放在动态数组里，每次运行脚本不合格的数量都不一定，想用动态数组存放这些数据。
必须先redim然后才能给数组赋值对吧，
这段什么意思：
For i = 0 To UBound(MyArray)
nStr = nStr & MyArray(i) & ","
Next
MsgBox nStr
呵呵，没看出来你是怎么理解动态数组的，反正不对。给你改了改，不知是否是你想要的效果。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
i=0
dim MyArray()
do
a=inputbox ("循环直到输入4为止")
if a="4" then exit do
redim preserve myarray(i)
myarray(i)=a
i=i+1
loop
msgbox join(myarray,",")
i=0
你的程序改为下面这样就行了
dim MyArray()
do
ReDim Preserve MyArray(i)
a=inputbox ("循环直到输入4为止")
MyArray(i)=a
i=i+1
loop until a="4"
msgbox Array(i)