中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » 论坛回收站 » moniuming滚开，数组问题~~

作者:

标题: moniuming滚开，数组问题~~

上一主题 | 下一主题

sexfio
社区乞丐

积分 -27
发帖 45
注册 2006-5-16
状态离线

『楼主』: moniuming滚开，数组问题~~

如果我程序要返回一组数据，我想放进一个数组里，问题是我运行前不知道会返回多少个数据，如何将他放在一个数组里呢？？ redim貌似开始也要定义多少个的，有其他办法吗

此帖被 -40 点积分

点击查看详情

2010-2-8 21:24

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

moniuming
银牌会员

永远的菜鸟

积分 1335
发帖 574
注册 2007-11-27
来自广西
状态离线

『第 2 楼』:

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