T_P_49.Text=Format (mas_P1_10 (4, 9), «0. # #»). T_P_410.Text=Format (mas_P1_10 (4, 10), «0. # #»). T_P_51.Text =Format (mas_P1_10 (5, 1), «0. # #»). T_P_52.Text=Format (mas_P1_10 (5, 2), «0. # #»). T_P_53.Text=Format (mas_P1_10 (5, 3), «0. # #»). T_P_54.Text=Format (mas_P1_10 (5, 4), «0. # #»). T_P_55.Text=Format (mas_P1_10 (5, 5 ), «0. # #»). T_P_56.Text=Format (mas_P1_10 (5, 6), «0. # #»). T_P_57.Text=Format (mas_P1_10 (5, 7), « 0. # # »). T_P_58.Text=Format (mas_P1_10 (5, 8),« 0. # # »). T_P_59.Text=Format (mas_P1_10 (5, 9),« 0. # # »). T_P_510.Text=Format (mas_P1_10 (5, 10),« 0. # # »)
'-----------------. L_F_max.Caption=«F =» _F=«»=False=0i=1 To 5mas_Sb (i) <> 0 Thennomer=False Then_F=str_F + Str (mas_Sb (i)) +" *" + Str (Format (mas_P0 (i), «# .00»))=True=F + mas_Sb (i) * mas_P0 (i) _F=str_F + «+» + Str (mas_Sb (i)) +" *" + Str (Format (mas_P0 (i), «# .00»))=F + mas_Sb (i) * mas_P0 (i) IfIfi.T_F=«F =» & Str (F). L_F_max.Caption=main.L_F_max.Caption & str_F & «=» & Str (F)
'-----------------. T_delt_1.Text=Format (mas_Delti (1), «0. # #»). T_delt_2. Text=Format (mas_Delti (2), «0. # #»). T_delt_3.Text=Format (mas_Delti (3), «0. # #»).T_delt_4.Text=Format (mas_Delti (4), «0. # #»). T_delt_5.Text=Format (mas_Delti (5), «0. # #»). T_delt_6.Text=Format (mas_Delti ( 6), «0. # #»). T_delt_7.Text=Format (mas_Delti (7), «0. # #»). T_delt_8.Text=Format (mas_Delti (8), «0. # # »). T_delt_9.Text=Format (mas_Delti (9),« 0. # # »). T_delt_10.Text=Format (mas_Delti (10),« 0. # # »)
'-----------------. L_kol_iter.Caption=Str (kol_iter) optima=«y» Then.L_opt_d.Caption=«так» _opt_x="{» i=1 To 5mas_Sb (i)> 0 Then_mesto_x (mas_Bazis (i))=mas_P0 (i) Ifii=1 To 5mas_mesto_x (i)> 0 Then_opt_x=str_opt_x + Str (mas_mesto_x (i)) + «; »_opt_x=Str_opt_x + Str (0) +«; »Ifi.L_opt.Caption=str_opt_x +«} »: main.L_opt_d.Caption =« ні »
End If
'Висновок результатів закінчено.
End SubSub Command1_Click (). Show.L_opt.Caption=«» Reschenie (2, 1)
'Command2.Enabled=False.Command1.Enabled=TrueSubSub Command2_Click () GLSub
