以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教随机字符串  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=55086)
--  作者：zcw2764
--  发布时间：2014/8/10 18:13:00
--  请教随机字符串
Rand.NextString 生成的随机字符串会不会含有一些特殊字符，如:\\,/等等
--  作者：有点甜
--  发布时间：2014/8/10 19:27:00
--  
Dim str() As String = {"1", "2", "3", "4", "5", "6", "7", "8", "9", "0", "+", "-", "*", "/", ">"}
For i As Integer = 1 To str.Length \'洗牌测次数
    Dim rnum1 As Integer = Rand.Next(str.Length)
    Dim rnum2 As Integer = Rand.Next(str.Length)
    Dim temp As String = str(rnum1)
    str(rnum1) = str(rnum2)
    str(rnum2) = temp   
Next
Dim data As String = String.Join("", str)
msgbox(data)