Sub 遍历出罗列()
Dim i1&, i2&, i3&, i4&, i5&, i6&, L&, S&
S = 128
For i1 = 1 To 33
For i2 = i1 + 1 To 33
For i3 = i2 + 1 To 33
For i4 = i3 + 1 To 33
For i5 = i4 + 1 To 33
i6 = S - i1 - i2 - i3 - i4 - i5
If i6 > i5 And i6 <= 33 Then
L = L + 1
Cells(L, 1) = i1 & "+" & i2 & "+" & i3 & "+" & i4 & "+" & i5 & "+" & i6
End If
Next i5
Next i4
Next i3
Next i2
Next i1
End Sub
本回答被提问者采纳