主题：[求助]求解方程组代码

Dim mx As Integer = 300
Dim my As Integer = 300
Dim max As Integer = 0
Dim cx As Integer = 0
Dim cy As Integer = 0
For x As Integer = 0 To mx
    For y As Integer = 0 To my
        If 10*x+4*y<=300 AndAlso 5*x+4*y<=200 AndAlso 4*x+9*y<=363 Then
            Dim z=600*x +1000*y
            If z > max Then
                max = z
                cx = x
                cy = y
            End If
        End If
    Next
Next

msgbox(max & " " & cx & " " & cy)

 不行，不指定x、y的范围是无法求解的。