就用这VB多一次整数解

就用这VB多一次整数解...

2026年09月25日 05:59

有1个网友回答

网友（1）：

Sub main()
    Dim x%, y, z%, u%
    Debug.Print "..."
    For x = 1 To 1496 / 5
    For z = 1 To (958 - 3 * x) / 7
    For u = 1 To (958 - 3 * x - 7 * z) / 5
        y = 958 - 3 * x - 7 * z - 5 * u
        If y < 0 Then Exit For
        If 5 * x + 4 * y + 3 * z + 2 * u = 1496 And 4 * x + 2 * y + 6 * z + 3 * u = 1175 Then
        If 2 * x + 3 * y + 5 * z + u = 861 Then
        Debug.Print "x="; x; ",y="; y; ",z="; z; ",u="; u
        End If: End If
    Next u, z, x
End Sub