Реферат: Решение задач симплексным методом

Strin = Replace(Strin, ” “, “”) ‘ Убрали лишьние пробелы в целевой функции

Strin = Trim(Strin)

Strin = Replace(Strin, “X”, “x”) ‘Заменим все х на маленькое английское

Strin = Replace(Strin, “Х”, “x”) ‘Русское большое на маленькое английское x

Strin = Replace(Strin, “х”, “x”) ‘Русское маленькое на маленькое английское x

Strin = Replace(Strin, “>=”, “>”) ‘

Strin = Replace(Strin, “<=”, “<”) ‘

BgRight = 0

i = 0

Icurrent = 1

Do While BgRight = 0

i = i + 1

ReDim Preserve Awork(i)

VaLi = ExtractDbl(Strin, Icurrent)

Awork(i).KoefX = VaLi

VaLi = ExtractDbl(Strin, Icurrent)

Awork(i).IndX = CInt(VaLi)

If CalcMaxX Then If MaxX < CInt(VaLi) Then MaxX = CInt(VaLi)

Loop

Ans = Awork

End Sub

Private Sub CommandButton1_Click()

Dim i As Integer

Dim j As Integer

Dim K As Integer

Dim Acell As String

Dim St1 As String * 1

Dim Vdbl As Double

NumIter = 0