关于用vb求解线性规划的有关问题

关于用vb求解线性规划的问题
Dim m As Long
Dim z As Long

Private Sub Command1_Click()
z = 100000
For x = 0 To 1000
   For y = 0 To 1000
       If 15 * x + 10.8 * y >= 1000 Then m = x + 2 * y
       If m <= z Then z = m
       Next y
Next x
Print x
Print y
End Sub

关于用vb求解线性规划的有关问题
如上所示
想在x ,y在代码所示的范围内找出m=x+2Y的最小值,并输出想x ,y但是为什么我最后的结果是x=1001,y=1001 m=3000呢,求找错,新手
------解决思路----------------------
看代码 z 才是最小值,并且你没有把最小值的 x、y 保存下来啊!
输出的x、y是循环结束后的值,m是最后一次计算(x=1000,y=1000)的结果啊!