作业帮 > 综合 > 作业

excel公式 四个个位数数之和为17,所有组合

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/30 17:51:20
excel公式 四个个位数数之和为17,所有组合
创建一个宏:
Sub oo()
  For a = 1 To 9
    For b = 1 To 9
      For c = 1 To 9
        For d = 1 To 9
          r = a + b + c + d
          If r = 17 Then
           Cells(Range("A1048576").End(xlUp).Row + 1, 1).Value = a
           Cells(Range("B1048576").End(xlUp).Row + 1, 2).Value = b
           Cells(Range("C1048576").End(xlUp).Row + 1, 3).Value = c
           Cells(Range("D1048576").End(xlUp).Row + 1, 4).Value = d
          End If
        Next d
      Next c
    Next b
  Next a
End Sub

然后在工作表运行宏,得出如下结果: