如何用EXCEL或C语言求解三元一次方程的所有正整数解组 比如33a+42b+53c=46580,求a,b,c，并显示

鼠标右击Sheet1的标签查看代码，在代码窗口粘贴下面的代码：
Sub ouyang()
For a = 1 To 1412
For b = 1 To 1412
c = (46580 - 33 a - 42 b) / 53
If c > 0 And (c = Int(c)) Then
t = t + 1
Cells(t, 1) = a: Cells(t, 2) = b: Cells(t, 3) = c
End If
Next
Next
End Sub
按 F5 运行程序，按Alt + F11回到Excel就可看到有 14671组解！

我们可以通过变量代换的方法来解决这个不定方程。令：
a = x + y
b = x - y
则有：
x = (a + b) / 2
y = (a - b) / 2
将其代入原方程得：
((a+b)/2)^3 - 2((a-b)/2)^2 = 10722
化简可得：
a^2 - 3b^2 = 42888
这是一个二次型不定方程。我们可以使用辗转相除法和一些其他数学技巧来解决它。
首先，我们注意到当 a 和 b 都是偶数时，等式左边为偶数，而 42888 是奇数，因此 a 和 b 必须有一个是奇数。此外，由于 b^2 除以 3 的余数只能是 0 或 1，因此 a^2 除以 3 的余数只能是 0 或 2。
我们尝试将方程两边同时除以 3，得：
(a/3)^2 - b^2 = 14296
令 m = a/3，我们得到一个与原方程形式类似的不定方程：
m^2 - 3b^2 = 14296
这是一个平方剩余方程，因为 3 是素数且 3 不整除 14296。因此，我们可以使用 Pell 方程的解法来求出它的正整数解。
我们可以从最小正整数解开始，通过递推的方式来生成所有正整数解。最小正整数解可以通过计算 3 的平方根来得到：
sqrt(3) ≈ 173205080757
因此，
m1 = 2, b1 = 2
我们可以使用以下递推公式来计算下一个解：
m(k+1) = 2m(k) + 3b(k)
b(k+1) = m(k) + 2b(k)
通过计算，我们可以得到：
m2 = 13, b2 = 13
m3 = 82, b3 = 83
m4 = 493, b4 = 493
m5 = 2950, b5 = 2951
因此，方程 a^2 - 3b^2 = 42888 的正整数解为：
a = 9m + 3b, b = b
(a, b) = (2667, 874)
注意到我们得到的解是 a 和 b 的线性组合，因此我们还需要验证这个线性组合是否能够得到正整数解 (x, y)。将 a 和 b 代入原来的代换式中得到：
x = (a + b) / 2 = 1770
y = (a - b) / 2 = 897
因此，不定方程 x^3 - 2y^2 = 10722 的正整数解为：
(x, y) = (1770, 897)。

，解①得：x≤3，解②得：x＞-1．则不等式组的解集是：-1＜x≤3．则正整数解是：0，1，2，3． 分析： 首先解不等式组求得不等式的解集，然后确定解集中的正整数解即可． 点评： 本题考查了不等式组的正整数解，正确解不等式组是关键．

2(x-2)+2≤-2，即2x-4+2≤-2，解得x≤0
(x-1)/3-(-1-x)/2＜-2/3
即2(x-1)-3(-1-x)＜-4
2x-2+3+3x＜-4
解得x＜-1
所以不等式组解订为x＜-1
则最大的整数解为-2

---