Dim str() As String = {"1","2","3","4","5","6"} For i As Integer = 1 To 200 For j As Integer = 1 To 5 '洗牌次数 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) Output.Show(data) Next
|