求用EXCEL公式解下列数学题

发布网友发布时间：2022-05-16 15:12

共3个回答

热心网友时间：2023-10-27 15:20

复杂的问题可用VBA编程解决，这题符合条件的共有1860个答案：

按Alt+F11，打开VBA编辑器，插入一个模块，把下面的代码打入去，如果粘贴进去的，请你将多余的内容删除，按F5执行

Sub 宏1()
    a = 21 * 96
    b = 7552 - a
    l = 1
    For i = 0 To Int(b / 20)
        For j = 0 To Int(b / 22)
            For k = 0 To Int(b / 19)
                If i * 20 + j * 22 + k * 19 = b Then
                    Cells(l, 1) = i
                    Cells(l, 2) = j
                    Cells(l, 3) = k
                    Cells(l, 4) = 21 * 96 + 20 * i + 22 * j + 19 * k
                    l = l + 1
                End If
            Next
        Next
    Next
End Sub

测试通过。

热心网友时间：2023-10-27 15:20

........57132899........
三元解的组合

热心网友时间：2023-10-27 15:21

条件不足吧，没法算