如果我程序要返回一组数据，我想放进一个数组里，问题是我运行前不知道会返回多少个数据，如何将他放在一个数组里呢？？
redim貌似开始也要定义多少个的，有其他办法吗
redim貌似开始也要定义多少个的，有其他办法吗
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
楼 主
moniuming滚开，数组问题~~
发表于 2010-02-08 21:24 · 中国 安徽 马鞍山 电信
第 2 楼
发表于 2010-02-08 23:34 · 中国 广东 广州 番禺区 广州海之光通讯技术有限公司
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 Function
第 3 楼
恶意标题
发表于 2010-02-09 00:19 · 中国 陕西 西安 电信
VBS达人都看不懂的问题描述。。。
S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore
第 4 楼
发表于 2010-02-09 15:26 · 中国 广东 电信
论坛跳转: