Excle计算数字组合如何利用excle计算A+B+C=10的A、B、C所有可能存在的数字,条件A、B、C之间不相等,而且A、B、C取数范围是大于等于1小于10,且为整数;结果是A、B、C之间所有能出现的组合.不好意

来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/15 05:43:24
Excle计算数字组合如何利用excle计算A+B+C=10的A、B、C所有可能存在的数字,条件A、B、C之间不相等,而且A、B、C取数范围是大于等于1小于10,且为整数;结果是A、B、C之间所有能出

Excle计算数字组合如何利用excle计算A+B+C=10的A、B、C所有可能存在的数字,条件A、B、C之间不相等,而且A、B、C取数范围是大于等于1小于10,且为整数;结果是A、B、C之间所有能出现的组合.不好意
Excle计算数字组合
如何利用excle计算A+B+C=10的A、B、C所有可能存在的数字,条件A、B、C之间不相等,而且A、B、C取数范围是大于等于1小于10,且为整数;结果是A、B、C之间所有能出现的组合.
不好意思,忘了A

Excle计算数字组合如何利用excle计算A+B+C=10的A、B、C所有可能存在的数字,条件A、B、C之间不相等,而且A、B、C取数范围是大于等于1小于10,且为整数;结果是A、B、C之间所有能出现的组合.不好意
用VBA很容易做,程序如下:
Sub 所有组合()
Dim a As Integer,b As Integer,c As Integer,i As Integer
Range("A:C").ClearContents
i = 1
For a = 1 To 9
  For b = 1 To 9
    For c = 1 To 9
      If a <> b And b <> c And a <> c And a + b + c = 10 Then
        Range("A" & i) = a
        Range("B" & i) = b
        Range("C" & i) = c
        i = i + 1
      End If
    Next c
  Next b
Next a
End Sub
运行结果如下: