Dim a As Single

Private Sub Cmd_Расчет_Click()

TxtAll.Text = InputBox("введіть загальну кількість локомотивів", _

"введення загальної кількості локомотивів", "", 2000, 2000)

If Combo_month.ListIndex <= 3 Or Combo_month.ListIndex >= 9 And Combo_month.ListIndex <= 11 Then

TxtExpluat.Text = 40 * TxtAll.Text \ 100

TxtRezerv.Text = 10 * TxtAll.Text \ 100

TxtRemont.Text = TxtAll.Text - TxtExpluat.Text - TxtRezerv.Text

Else

TxtExpluat.Text = 1.5 * 40 * TxtAll.Text \ 100

TxtRezerv.Text = 10 * TxtAll.Text \ 100

TxtRemont.Text = TxtAll.Text - TxtExpluat.Text - TxtRezerv.Text

End If

a = TxtRemont.Text

Open "dan.txt" For Append As #1

Write #1, a

Close #1

FrmRez.Visible = True

FrmRez.Cmd_Среднее.SetFocus

End Sub

Private Sub Cmd_Выход_Click()

Kill ("dan.txt")

End

End Sub

Private Sub Cmd_Месяц_Click()

MsgBox "Виберіть місяць зі списку та натисніть Розрахунок "

Combo_month.SetFocus

End Sub

Private Sub Form_Load()

Combo_month.ListIndex = 0

End Sub

Private Sub TxtAll_LostFocus()

If Not IsNumeric(TxtAll) Then

MsgBox "Невірне значення: не цифра"

TxtAll.SetFocus

End If