Разработка программы для расчета финансовых показателей используемых в составлении бизнес-плана на языке Visual Basic
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: диплом школа, оформление курсовой работы
| Добавил(а) на сайт: Jastrzhembskij.
Предыдущая страница реферата | 8 9 10 11 12 13 14 15 16 17 18 | Следующая страница реферата
Dim a, b, c, d, x, y, z As Double
Dim Kteklik, Kobes, Rpr, Rproiz As Double
Dim Fotd, Oos, Oobakt, Ozap, Odz, Oba, Oksk As Double
Dim s500, s510, s730, s735, s740, tekaktiv, tekpassiv As Double
Расчёт частного от значений 1-го и 2-го текстовых полей:
Private Sub Command1_Click()
Text3.Text = "" a = 0 b = 0 c = 0
If Text1.Text = "" Then GoTo M
If Text2.Text = "" Then GoTo M
If Text2.Text = 0 Then Text3.Text = "На ноль делить нельзя!!!"
If Text2.Text = 0 Then GoTo M a = Text1.Text b = Text2.Text c = a / b
Text3.Text = c
M:
Text1.SetFocus
End Sub
Очистка формы от всех результатов:
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label1.Caption = "Показатель"
Label4.Caption = ""
Label5.Caption = ""
Label6.Caption = ""
Label7.Caption = ""
Рекомендуем скачать другие рефераты по теме: курсовая работа политика, бесплатные дипломные работы.
Категории:
Предыдущая страница реферата | 8 9 10 11 12 13 14 15 16 17 18 | Следующая страница реферата
Главная