Лабораторная работа: Разработка подсистемы управления оптимального плана выпуска изделий

End If

Next j

Next i

x2:

x (j1 – 1) = a (i1, 1)

ListBox1. AddItem («x» & (j1 – 1) &» = " & x (j1 – 1))

fmax = (a (3, 1))

Loop

x3:

ListBox1. AddItem («F(x) max» &» = " & – (fmax))

Text1. Text = a (1, 1)

Text2. Text = a (1, 2)

Text3. Text = a (1, 3)

Text4. Text = a (1, 4)

Text5. Text = a (2, 1)

Text6. Text = a (2, 2)

Text7. Text = a (2, 3)

Text8. Text = a (2, 4)

Text9. Text = a (3, 1)

Text10. Text = a (3, 2)

Text11. Text = a (3, 3)

Text12. Text = a (3, 4)

x4:

End Sub

Private Sub CommandButton2_Click()

Text1. Text = «»

Text2. Text = «»

Text3. Text = «»

Text4. Text = «»