OK了,谢谢 大红袍
我现在需要再设置一个字符串,例如:"{"上","中","下","东","南","西","北"} 按照组合数量,有顺序地加入到循环组合,
Dim str() As String = {"1","2","3","4","5","6"}
Dim ls As new List(Of String)For i As Integer = 1 To 100 '组合数量 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) If ls.Contains(data) = False Then ls.add(data) Output.Show(i & " " & data) Else i -=1 End IfNext