Реферат: Расчет финансового левериджа

Module fin_lev.bas

Global kol As Integer

Global summa As Single

End Module

Sub calc_Click ()

If Val(v_obl.Text) < 0 Then

MsgBox "Не все введено"

Exit Sub

End If

If Val(v_pr_ak.Text) < 0 Then

MsgBox "Не все введено"

Exit Sub

End If

If Val(v_ob_ak.Text) <= 0 Then

MsgBox "Неверные данные"

Exit Sub

End If

obl = Val(v_obl.Text)

pr_ak = Val(v_pr_ak.Text)

ob_ak = Val(v_ob_ak.Text)

lev = (obl + pr_ak) / ob_ak

kol = kol + 1

t1 = "Финансовый леверидж предприятия №"

vivod.Caption = t1 + Str(kol) + " равен " + Mid$(Str(lev), 1, 10)

summa = summa + lev

t1 = "Среднее значение левериджа "

t2 = " предприятий равно "

srd_lev.Caption = t1 + Str(kol) + t2 + Str(summa / kol)

titul.Caption = "Расчет #" + Str(kol + 1)