Учебное пособие: Задачи линейного программирования

For i = 0 To 7

If Text4(i).Text = "" Then Text4(i).Text = 0

Ar(2, i) = CSng(Text4(i).Text)

Next

For i = 0 To 7

If Text5(i).Text = "" Then Text5(i).Text = 0

Ar(3, i) = CSng(Text5(i).Text)

Next

For i = 0 To 7

If Text6(i).Text = "" Then Text6(i).Text = 0

Ar(4, i) = CSng(Text6(i).Text)

Next

For i = 0 To 7

If Text7(i).Text = "" Then Text7(i).Text = 0

Ar(5, i) = CSng(Text7(i).Text)

Next

Load frmSimpl

frmSimpl.Show

frmIn.Hide

EndSub

Список используемой литературы

1. Шыныбаев М.А. "Курсовая работа по моделированию производственных и экономических процессов." - Талдыкорган. ТПТК 1999 г.

2. Солодовников А.С. "Введение в линейную алгебру и линейное программирование." - М. Просвещение, 1966.