下面求Z的最小值VB程序,Private Sub Form_Click()Dim z,a,b,c,da = Int(Rn

下面求Z的最小值VB程序,
Private Sub Form_Click()
Dim z,a,b,c,d
a = Int(Rnd * 100 - 0.1)
b = Int(Rnd * 100 - 0.1)
c = Int(Rnd * 100 - 0.1)
d = Int(Rnd * 100 - 0.1)
If b >= 0.25 And d = 20 And 20 * a + 30 * b + 25 * c + 40 * d >= 30 And 40 * a + 25 * b + 55 * x3 + 30 * x4 >= 30 And a + b + c + d = 1 And a >= 0 And b >= 0 And c >= 0 And d >= 0 Then
z = Val(15 * a + 18 * b + 16 * c + 20 * d)
Print "z="; z
Print "x1"; a
Print "x2"; b
Print "x3"; c
Print "x4"; x4
End If
End Sub