將字符串打亂輸出

Dim?i,mm,Str,StrPosition,NewStr
Str?=?"1234567890"
For?i=1?To?Len(Str)
????StrPosition?=?GetRandomMath(1,Len(Replace(Str,mm,"")))
????Str?=?Replace(Str,mm,"")
????mm?=?Mid(str,StrPosition,1)
????NewStr?=?NewStr?&?mm
Next
WScript.Echo?"NewStr?=?"?&?NewStr

Function?GetRandomMath(begin,over)
????Randomize
????GetRandomMath?=?Int((Rnd?*?(over?-?begin?+?1))?+?begin)
End?Function

posted on 2014-11-26 14:35 futrueface 閱讀(...) 評論(...) 編輯 收藏

轉(zhuǎn)載于:https://www.cnblogs.com/futrueface/p/4123201.html

總結(jié)

以上是生活随笔為你收集整理的将字符串打乱输出的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。