摘要：
i = 0: nStr = ""Dim MyArray()Doa = InputBox("循环直到输入4为止")ReDim Preserve MyArray(i)MyArray(i) = ai = i + 1Loop Until a = "4"For i = 0 To UBound(MyArray)nStr = nStr & MyArray(i) & ","NextMsgBox nStr 补充：--------------------------------------不一定要 redim 后才能给 阅读全文
摘要：
***vbs各种排序********option explicit'接收输入：dim s,r,n,is=inputbox(vbcrlf&vbcrlf&"以空格隔开：","请输入一组数：","2007 10 18 21 15")if s="" then wscript.quitr=split(s," ")n=ubound(r) '把字符串转换为Double 子类型：for i=0 to n r(i)=cdbl(r(i))next'快速排序方法调用：quick 阅读全文