如果我程序要返回一组数据，我想放进一个数组里，问题是我运行前不知道会返回多少个数据，如何将他放在一个数组里呢？？
redim貌似开始也要定义多少个的，有其他办法吗
redim貌似开始也要定义多少个的，有其他办法吗
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
moniuming滚开，数组问题~~
标题：moniuming滚开，数组问题~~
Option Explicit
Dim Msg,i,strMsg
Msg = Kill_sexfio
For i = 1 To UBound(Msg) - 1
strMsg = strMsg & Msg(i) & " "
Next
MsgBox strMsg
Function Kill_sexfio()
Dim Input,strMsg(),intCnt
Do
Input = InputBox("请输入数据:","回车退出")
intCnt = intCnt + 1
ReDim Preserve strMsg(intCnt)
strMsg(intCnt) = Input
Loop Until Input = ""
Kill_sexfio = strMsg
End FunctionVBS达人都看不懂的问题描述。。。
看不懂写的什么东东……
是不是到时候要说我们没水平，看不懂标题？
这招数怎么好几个论坛都有人使啊……
[ Last edited by 523066680 on 2010-2-9 at 15:31 ]
是不是到时候要说我们没水平，看不懂标题？
这招数怎么好几个论坛都有人使啊……
[ Last edited by 523066680 on 2010-2-9 at 15:31 ]
来源：https://www.cn-dos.net/forum/viewthread.php?tid=50229 · 打印时间 2026-06-13 23:47