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

lblRes.Visible = True

Exit Sub

End If

jr = i

For j = i + 1 To n

If f(j) < 0 And f(jr) < f(j) Then jr = j

Next j

i = 1

While i <= r

If x(i, jr) > 0 Then GoTo 5

i = i + 1

Wend

MsgBox Str(jr) & " " & Chr(13) & Chr(10) & "Решениянет"

Exit Sub

' нахождение разрешающего элемента

5: ir = i

Min = x(i, 0) / x(i, jr)

For j = i + 1 To r

If x(j, jr) > 0 Then

d = x(j, 0) / x(j, jr)

If Min > d Then

Min = d

ir = j

End If

End If

Next j

k = x(ir, jr)

For j = 0 To n

x(ir, j) = x(ir, j) / k