中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum

游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟

中国DOS联盟论坛
现在时间是 2026-09-13 22:57

共 47,812 主题排行 / 349,916 发帖 / 今日 0 篇 / 48,268 会员排行

论坛回收站 » moniuming滚开，数组问题~~

可打印版本　1,875 / 3

第1楼　sexfio	发表于 2010-02-08 21:24
社区乞丐　发帖 45　积分 -27
moniuming滚开，数组问题~~ 如果我程序要返回一组数据，我想放进一个数组里，问题是我运行前不知道会返回多少个数据，如何将他放在一个数组里呢？？ redim貌似开始也要定义多少个的，有其他办法吗

第2楼　moniuming	发表于 2010-02-08 23:34
银牌会员　发帖 574　积分 1,335　来自广西
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楼　slore	发表于 2010-02-09 00:19
铂金会员　发帖 2,478　积分 5,212
恶意标题 VBS达人都看不懂的问题描述。。。

第4楼　523066680	发表于 2010-02-09 15:26
银牌会员　发帖 1,133　积分 2,361
看不懂写的什么东东…… 是不是到时候要说我们没水平，看不懂标题？这招数怎么好几个论坛都有人使啊…… [ Last edited by 523066680 on 2010-2-9 at 15:31 ]

[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023