求助

Question

帮我想个算法，有n个数（都是带2位小数的），这n个数将会分成2或3组，每一组的总和知道，求每组数都有哪些？ 
例如: 有6个数：1.5, 1.6, 2.1, 2.5, 3.2, 3.4 两组的和分别是：7.0， 7.3。谁可以帮个忙，来段实现这个例子的代码。

Answer 1

Private Sub Command1_Click()
    Dim a(0 To 5) As Double
    a(0) = 1.5
    a(1) = 1.6
    a(2) = 2.1
    a(3) = 2.5
    a(4) = 3.2
    a(5) = 3.4
    Dim i As Long, j As Long, k As Long
    
    For i = 0 To 3
        For j = i + 1 To 4
            For k = j + 1 To 5
                If a(i) + a(j) + a(k) = 7# Then
                    Debug.Print i + 1; j + 1; k + 1
                    Debug.Print a(i); a(j); a(k)
                End If
            Next k
        Next j
    Next i
End Sub