请朋友帮帮我：求7个数在500以内的正整数，满足以下两个要求

jj21

工作中要做资料需要70组，编起来太难了，请朋友们帮帮我

求A、B、C、D、E、F、G

第一个条件：A+B+C+D+E+F+G=500±5

第二个条件：(5B+4C+3D+2E+F)/(500-A)=2.8～3.2

老鬼

试试规划求解功能

pureshadow

[em02]这还叫不懂代码?比偶强多了去了哈!

情比金坚

Dim a, b, c, d, e, f, g As Integer
For k = 1 To 70
For a = 1 To 505
For b = 1 To 505
For c = 1 To 505
For d = 1 To 505
For e = 1 To 505
For f = 1 To 505
For g = 1 To 505
If (a + b + c + d + e + f + g) > 494 And (a + b + c + d + e + f + g) < 506 Then
If 5 * b + 4 * c + 3 * d + 2 * e + f / (500 - a) >= 2.8 And 5 * b + 4 * c + 3 * d + 2 * e + f / (500 - a) <= 3.2 Then
Cells(k, 2) = a
Cells(k, 3) = b
Cells(k, 4) = c
Cells(k, 5) = d
Cells(k, 6) = e
Cells(k, 7) = f
Cells(k, 8) = g
End If
End If
Next
Next
Next
Next
Next
Next
Next
Next

原理上是这样吧？？？不知道要算多久？？

pureshadow

求五元一次方程组啊?条件太少诶.....

还是偶太笨了,米有看明白[em04]