Dim nlist As new List(of String) nlist.AddRange("01?02?03?04?05?06".split("?")) Dim slist As new List(of String) Dim str As String For i As Integer = 0 To nlist.count -1 For j As Integer = 0 To nlist.count -1 For k As Integer = 0 To nlist.count -1 If i<>j AndAlso i <> k AndAlso j <> k Then str=nlist(i) & nlist(j) & nlist(k) If slist.Contains(str)=False Then slist.Add(str) End If End If Next Next Next For Each s As String In slist output.show(s) Next 我把上面的代码测试了一下,会出现010203、010302等情况,如果不考虑位置比如彩piao选号,应该怎么改?
|