![](images/userface/image1.gif)
加好友 发短信
等级:版主
帖子:85326
积分:427815
威望:0
精华:5
注册:2012/10/18 22:13:00
|
Post By:2014/7/18 9:59: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) 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 data &= String.Join("", str) msgbox(data)
|
|