|
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
原理上是这样吧???不知道要算多久?? |
|