Разработка программы для расчета финансовых показателей используемых в составлении бизнес-плана на языке Visual Basic
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: диплом школа, оформление курсовой работы
| Добавил(а) на сайт: Jastrzhembskij.
Предыдущая страница реферата | 13 14 15 16 17 18 19 20 21 22 23 | Следующая страница реферата
Text1.Text = InputBox("Собственные оборотные средства", "Ко")
Text2.Text = InputBox("Текущие активы", "Ко")
If Text1.Text = "" Then GoTo M
If Text2.Text = "" Then GoTo M a = Text1.Text b = Text2.Text
Kobes = a / b
Label5.Caption = Kobes
Text3.Text = Kobes
If Kobes > 0.1 Then Label5.ForeColor = &HC000&
If Kobes < 0.1 Then MsgBox ("Неудовлетворительная структура баланса!!!")
If Kobes < 0.1 Then Label5.ForeColor = &HFF&
If Kobes < 0.1 Then Kvosstplatezhsti.Enabled = True
M:
Text1.SetFocus
End Sub
Расчёт коэффициента текущей ликвидности:
Private Sub Ktl_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
Kteklik = a / b
Рекомендуем скачать другие рефераты по теме: курсовая работа политика, бесплатные дипломные работы.
Категории:
Предыдущая страница реферата | 13 14 15 16 17 18 19 20 21 22 23 | Следующая страница реферата
Главная