Монтаж, эксплуатация и ремонт технологического оборудования. Курсовое проектирование. Юнусов Г.С - 137 стр.

       .Rows = 11
       .TextMatrix(0, 0) = "Наименование"
       .TextMatrix(0, 1) = "Значение"
       .TextMatrix(1, 0) = "Нормативный коэффициент экономи-
ческой эффективности (рекомендуется 0,15) Eн="
       .TextMatrix(2, 0) = "Средняя балансовая стоимость мон-
тажного крана, руб.                Ki="
       .TextMatrix(3, 0) = "Единовременные затраты на доставку
1-го крана в рабочую зону, руб.         Cei="
       .TextMatrix(4, 0) = "Годовая сумма амортизационных от-
числений 1-го крана, руб.            Cri="
      .TextMatrix(5, 0) = "Текущие эксплуатационные затраты
в смену по 1-му крану, руб.           Cti="
       .TextMatrix(6, 0) = "Фактическое количество смен работы
крана на объекте                tф="
       .TextMatrix(7, 0) = "Нормативное годовое число смен ра-
боты 1-го крана                 tгодi="
      .TextMatrix(8, 0) = "Трудоемкость монтажа, чел. см. m="
       .TextMatrix(9, 0) = "Количество звеньев, принимаемых по
количеству кранов               N="
       .TextMatrix(10, 0) = "Количество рабочих звеньев n="
     End With
     With MSFlexGrid2(3)
       .ColWidth(0) = 8620
       .Height = 1130
       .FixedAlignment(0) = flexAlignCenterCenter
       .FixedAlignment(1) = flexAlignCenterCenter
       .Rows = 4
       .TextMatrix(0, 0) = "Наименование"
       .TextMatrix(0, 1) = "Значение"
       .TextMatrix(1, 0) = "Затраты, руб.       Пi="
       .TextMatrix(2, 0) = "Себестоимость эксплуатации крана за
период выполнения работ, руб.             Ci="
       .TextMatrix(3, 0) = "Продолжительность работы монтажно-
го крана при монтаже каркаса, год.          T="
     End With
    End Sub
    Private Sub MSFlexGrid1_KeyPress(Index As Integer, KeyAs-
cii As Integer)
     Select Case KeyAscii
                              136