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

       If I = 2 Then StrR = "Данные для самоходного крана со
стрелой"
       If I = 3 Then StrR = "Данные для самоходного крана
с гуськом"
       If I = 4 Then StrR = "Данные для технико-экономических
показателей"
       Write #1, StrR
       N = MSFlexGrid1(I - 1).Rows - 1
       StrR = Str(N)
       Write #1, StrR 'Число строк в таблице
       For J = 1 To N
         StrR = MSFlexGrid1(I - 1).TextMatrix(J, 1)
         If StrR = "" Then StrR = "0"
         Write #1, StrR
       Next J
     Next I
     Reset
     CommonDialog1.FileName = ""
    End If
   End Sub
  Private Sub Open_Click(Index As Integer)
   OpenData
   Computer (1)
   Computer (2)
   Computer (3)
   Computer (4)
  End Sub
  Private Sub Save_Click(Index As Integer)
   SaveData
  End Sub
  Private Sub Zad1_Click(Index As Integer)
   Kran (0) 'Делаем расчеты для 0-го(монтажного) крана
  End Sub
  Private Sub Zad2_Click(Index As Integer)
    Kran (1) 'Делаем расчеты для 1-го(самоходного со стрелой)
крана
  End Sub
  Private Sub Zad3_Click(Index As Integer)
                              139