
CODE: [Copy to clipboard]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
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |