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

a (1, 4) = Text4. Text

a (2, 1) = Text5. Text

a (2, 2) = Text6. Text

a (2, 3) = Text7. Text

a (2, 4) = Text8. Text

a (3, 1) = Text9. Text

a (3, 2) = Text10. Text

a (3, 3) = Text11. Text

a (3, 4) = Text12. Text

If Text1. Text = «» And Text2. Text = «» And Text3. Text = «» And Text4. Text = «» Then

MsgBox «Введитезначения»

GoTo x4

End If

Do Until a (3, 1) < 0 And a (3, 2) < 0 And a (3, 3) < 0 And a (3, 4) < 0

c = 0

For j = 1 To 4

i = 3

b = a (i, j)

If b >= c Then

c = b

j1 = j

Else

GoTo x1

End If

x1:

If c <= 0 And j = 4 Then

MsgBox «Процесс решения окончен. Для просмотра результатов нажмите ОК.»

GoTo x2

End If