Private Sub Command_Click()

End Sub
Dim x As Lnteger, y As Integer, z As Integer
Dim x_max As Integer, y_max As Integer, z_max As Integer
Dim f(4, 3, 8) As Single '?????????f??x,y,z)???????f
Dim f_max As Single
'??????????? ??1??1????x,y,z????f(1,1)??x,y,z????f(x,y,z)=4x+3y+2z?????
For x = 0 To 4
For y = 0 To 3
For z = 0 To 8
If (2 * x + 2 * y + z <= 12) And (x + 2 * y + z <= 8) Then
......................