作业帮 > 综合 > 作业

1,2,3,4,5,6,7,8,9,10,11 一共11个号码,求和为29的一共有多少组?一组包含其中5个数字,用表格如

来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/06/24 17:45:37
1,2,3,4,5,6,7,8,9,10,11 一共11个号码,求和为29的一共有多少组?一组包含其中5个数字,用表格如何计算?
例如:2.3.5.9.10
1,2,3,4,5,6,7,8,9,10,11 一共11个号码,求和为29的一共有多少组?一组包含其中5个数字,用表格如
以下VBA代码可以在Excel表格的A列返回结果,共3840行
Sub qiuhe()
f = 1
For a = 1 To 11
For b = 1 To 11
For c = 1 To 11
For d = 1 To 11
For e = 1 To 11
If a + b + c + d + e = 29 And a b And a c And a d And a e And _
b c And b d And b e And c d And c e And d e Then
Range("A" & f).Value = a & "," & b & "," & c & "," & d & "," & e
f = f + 1
End If
Next e
Next d
Next c
Next b
Next a
End Sub
注:这3840行是排列,即2.3.5.9.10和10.9.5.3.2会分2行列出
再问: 如何写入公式啊?
再答: 1. 打开一个空白的Excel 2. 同时按ALT+F11,进入VBA编辑器 3. 插入一个新模块 4. 复制粘贴上面的代码 5. 运行 6. 回到Excel去看结果