发布时间:2019-09-13 21:41:25
100/6=16……4
=16.666……
也就是说平均数要大于16,小于17
数量是19995,具体公式你自己研究,给你一个代码吧:
Sub 求100()j = 1For 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 For i6 = i5 + 1 To 33 If i1 + i2 + i3 + i4 + i5 + i6 = 100 Then Cells(j, 1) = j & ":" & i1 & "+" & i2 & "+" & i3 & "+" & i4 & "+" & i5 & "+" & i6 & "= 100" j = j + 1 End If Next Next Next Next NextNextEnd Sub
有八组计算
共有19995组