求一算法

Question

要求：
   已知数字 3，4，5，6，对这四个数进行组合，组合结果 3，4，5，6，3+4，3+5，3+6，4+5，4+6，
5+6，3+4+5，3+4+6，4+5+6(也就是每个数都和其他所有的数<单个或多个>进行相加。请高手指点一个算法！(我记得是数据结构中的某个算法，我不记得了)

Answer 1

供参考
Option ExplicitPrivate Sub Form_Load()
    Dim a As New Collection
    Dim s() As String
    Dim i As Long, j As Long
    
    s = Split("3,4,5,6", ",")
    
    For i = 0 To UBound(s)
        For j = 1 To a.Count
            a.Add a.Item(j) & "+" & s(i)
        Next j
        a.Add s(i)
    Next i
    
    For i = 1 To a.Count
        Debug.Print a.Item(i)
    Next i
End Sub