1到33中的任6个数的和为100,有多少组数,用excel vba能办到吗?
来源:百度知道 编辑:UC知道 时间:2024/06/09 15:43:14
19995组
如下vba:
Sub comb()
Dim a, b, c, d, e, f As Integer
Dim cellcount As Integer
cellcount = 1
For a = 1 To 28
For b = a + 1 To 29
For c = b + 1 To 30
For d = c + 1 To 31
For e = d + 1 To 32
For f = e + 1 To 33
If a + b + c + d + e + f = 100 Then
Cells(cellcount, 1) = a
Cells(cellcount, 2) = b
Cells(cellcount, 3) = c
Cells(cellcount, 4) = d
Cells(cellcount, 5) = e
Cells(cellcount, 6) = f
cellcount = cellcount + 1
End If
Next f
Next e
Next d
Next c
Next b
Next a
End Sub