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

End If

Else

Exit Sub

End If

End If

If (KeyAscii = 45) And (grdData.Col > 0) Then grdData.Text = Chr(KeyAscii)

If (((KeyAscii >= 48 And KeyAscii <= 57) Or (KeyAscii = 46)) And (grdData.Col > 0)) Or _

((KeyAscii >= 48 And KeyAscii <= 57) And (grdData.Col = 0) And (grdData.Row <= r)) Then

grdData.Text = grdData.Text & Chr(KeyAscii)

End If

End Sub

Private Sub cmdIn_Click()

frmFlash.Show

cmdIn.Visible = False

cmdIninf.Visible = True

End Sub

Private Sub cmdIninf_Click()

Dim i

For i = 0 To 4

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

pv(i) = CSng(Text1(i).Text)

Next

For i = 0 To 7

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

fmMin(i) = CSng(Text2(i).Text)

Next

For i = 0 To 7

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

Ar(1, i) = CSng(Text3(i).Text)