标题: moniuming滚开，数组问题~~ [打印本页]
作者: sexfio 时间: 2010-2-8 21:24 标题: moniuming滚开，数组问题~~
如果我程序要返回一组数据，我想放进一个数组里，问题是我运行前不知道会返回多少个数据，如何将他放在一个数组里呢？？
redim貌似开始也要定义多少个的，有其他办法吗
作者: moniuming 时间: 2010-2-8 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
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
作者: slore 时间: 2010-2-9 00:19 标题: 恶意标题
VBS达人都看不懂的问题描述。。。
作者: 523066680 时间: 2010-2-9 15:26
看不懂写的什么东东……
是不是到时候要说我们没水平，看不懂标题？
这招数怎么好几个论坛都有人使啊……
[ Last edited by 523066680 on 2010-2-9 at 15:31 ]