Разработка программы для расчета финансовых показателей используемых в составлении бизнес-плана на языке Visual Basic
Категория реферата: Рефераты по информатике, программированию
Теги реферата: диплом школа, оформление курсовой работы
Добавил(а) на сайт: Jastrzhembskij.
Предыдущая страница реферата | 13 14 15 16 17 18 19 20 21 22 23 | Следующая страница реферата
Private Sub Odebitzad_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label1.Caption = "Оборачиваемость дебиторской задолженности"
Text1.Text = InputBox("Продукция (оборот)", "Оборачиваемость дебиторской задолженности")
Text2.Text = InputBox("Средняя величина дебиторской задолженности",
"Оборачиваемость дебиторской задолженности")
If Text1.Text = "" Then GoTo M
If Text2.Text = "" Then GoTo M a = Text1.Text b = Text2.Text
Odz = (a / b)
Label20.Caption = Odz
Text3.Text = Odz
Command6.Enabled = True
M:
Text1.SetFocus
End Sub
Расчёт оборачиваемости собственного капитала:
Private Sub Oksobstvkapit_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label1.Caption = "Оборот к собственному капиталу"
Text1.Text = InputBox("Продукция (оборот)", "Оборот к собственному капиталу")
Text2.Text = InputBox("Средняя величина собственного капитала", "Оборот к собственному капиталу")
If Text1.Text = "" Then GoTo M
If Text2.Text = "" Then GoTo M a = Text1.Text b = Text2.Text
Oksk = (a / b)
Label22.Caption = Oksk
Text3.Text = Oksk
Command6.Enabled = True
M:
Text1.SetFocus
End Sub
Расчёт оборачиваемости всех оборотных активов:
Private Sub Oobak_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label1.Caption = "Оборачиваемость всех оборотных активов"
Text1.Text = InputBox("Продукция (оборот)", "Оборачиваемость всех оборотных активов")
Text2.Text = InputBox("Средняя стоимость оборотных активов",
"Оборачиваемость всех оборотных активов")
If Text1.Text = "" Then GoTo M
If Text2.Text = "" Then GoTo M a = Text1.Text b = Text2.Text
Oobakt = (a / b)
Label18.Caption = Oobakt
Text3.Text = Oobakt
Command6.Enabled = True
M:
Text1.SetFocus
End Sub
Рекомендуем скачать другие рефераты по теме: курсовая работа политика, бесплатные дипломные работы.
Предыдущая страница реферата | 13 14 15 16 17 18 19 20 21 22 23 | Следующая страница реферата