1

我正在尝试从 1 到 6 的整数生成长度为 3 的唯一子集。我在下面玩过许多版本的脚本，但似乎总是遇到某种问题。如果有人能给我一些指示，那就太好了。谢谢。

Sub permuteTest()

num = 6
cRow = 1

For i = 1 To num - 2

    For j = 2 To num - 1

        For k = 3 To num

            Cells(cRow, 1).Value = i
            Cells(cRow, 2).Value = j
            Cells(cRow, 3).Value = k

            cRow = cRow + 1

        Next k
    Next j
Next i

End Sub
4

2 回答 2

1

像这样：

Sub permuteTest()

num = 6
cRow = 1

    For i = 1 To num - 2
        For j = i + 1 To num - 1
            For k = j + 1 To num
                Cells(cRow, 1).Value = i
                Cells(cRow, 2).Value = j
                Cells(cRow, 3).Value = k

                cRow = cRow + 1
            Next k
        Next j
    Next i

End Sub
于 2012-04-21T05:24:38.817 回答
1

这个例程说明了如何解决。它生成字符串元组“3,4,1”，但您可以根据需要修改为使用数组。不容易阅读，但如果你一步一步来，一切都会清楚。为了紧凑，我没有声明变量，所以运行 WITHOUT Option Explicit。

Const T = 3 ' generate 3-tuples
Const N = 6 ' using digits 1,...,6

Private Sub Permute()
    Dim cTuples As New Collection: Call cTuples.Add(Empty)      ' start w empty tuple (rank 0)
    For i = 1 To T: Set cTuples = NewTuples(cTuples, N): Next i ' increase tuple rank T times using N digits
    For Each vTuple In cTuples: Debug.Print vTuple: Next        ' display the results
End Sub

' helper func: turn a set of T-tuples into T+1 tuples
Private Function NewTuples(Tuples As Collection, N As Integer) As Collection
    Set NewTuples = New Collection
    For Each vOldTuple In Tuples
        For i = 1 To N: NewTuples.Add (AppendToTuple(vOldTuple, i)): Next
    Next
End Function

' helper func: turn a single T tuple into a T+1 tuple
Private Function AppendToTuple(Tuple, i)
    If IsEmpty(Tuple) Then AppendToTuple = i Else AppendToTuple = Tuple & "," & i
End Function

结果字符串元组 debug.print'ed 到 Immed Window (ctrl-G)：

1,1,1
1,1,2
1,1,3
1,1,4
1,1,5
1,1,6
1,2,1
1,2,2
...
6,6,5
6,6,6
于 2012-04-21T05:41:11.487 回答