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

pr_ak — цена привелегированных акций текущего АО (Currency).

ob_ak — цена обыкновенных акций текущего АО (Currency).

obl — цена облигаций текущего АО (Currency).

lev — значение финансового левериджа текущего АО (Currency).

t1, t2 — промежуточные переменные (String).

Таблица свойств формы.

Begin Form FIN_LEV Caption = «Расчет финансового левериджа» ClientHeight = 4560 ClientLeft = 1410 ClientTop = 1995 ClientWidth = 7305 Height = 4965 Icon = (Icon) Left = 1350 LinkTopic = «Form1» ScaleHeight = 304 ScaleMode = 3 'Pixel ScaleWidth = 487 Top = 1650 Width = 7425 Begin CommandButton EXT Caption = «ВЫХОД» Height = 495 Left = 5040 TabIndex = 7 Top = 3960 Width = 1455 End Begin CommandButton calc Caption = «РАСЧЕТ» Height = 495 Left = 720 TabIndex = 6 Top = 3960 Width = 1455 End Begin TextBox V_OB_AK Height = 375 Left = 3240 TabIndex = 5 Text = «0» Top = 2400 Width = 2295 End Begin TextBox V_PR_AK Height = 375 Left = 3240 TabIndex = 4 Text = «0» Top = 1560 Width = 2295 End Begin TextBox V_obl Height = 375 Left = 3240 TabIndex = 1 Text = «0» Top = 720 Width = 2295 End Begin Label srd_lev BorderStyle = 1 'Fixed Single Caption = «Средний финансовый леверидж пока не вычислен» Height = 255 Left = 120 TabIndex = 10 Top = 3480 Width = 6975 End Begin Label Titul Caption = «Расчет 1» FontBold = -1 'True FontItalic = 0 'False FontName = «MS Sans Serif» FontSize = 13.5

FontStrikethru = 0 'False FontUnderline = 0 'False Height = 375 Left = 2520 TabIndex = 9 Top = 120 Width = 2295 End Begin Label vivod BorderStyle = 1 'Fixed Single Caption = «Финансовый леверидж пока не вычислен» Height = 255 Left = 120 TabIndex = 8 Top = 3000 Width = 6975 End Begin Label T_OB_AK Caption = «Введите обыкновенные акции, руб» Height = 495 Left = 120 TabIndex = 3 Top = 2400 Width = 2895 End Begin Label T_PR_AK Caption = «Введите привелегированные акции, руб» Height = 495 Left = 120 TabIndex = 2 Top = 1560 Width = 2895 End Begin Label T_obl Caption = «Введите облигации, руб» Height = 255 Left = 120 TabIndex = 0 Top = 840 Width = 2895 End End

Текст программы.

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) v_pr_ak. Text = «0» v_obl. Text = «0» v_ob_ak. Text = «0» End Sub Sub EXT_Click () End End Sub Sub Form_Load () kol = 0 summa = 0 End Sub Sub V_OB_AK_Change () If Val (v_ob_ak. Text) < 0 Then MsgBox «Требуется ввести положительное число» v_ob_ak. Text = «0» End If End Sub Sub V_obl_Change () If Val (v_obl. Text) < 0 Then MsgBox «Требуется ввести положительное число» v_obl. Text = «0» End If End Sub Sub V_PR_AK_Change () If Val (v_pr_ak. Text) < 0 Then MsgBox «Требуется ввести положительное число» v_pr_ak. Text = «0» End If End Sub

Тестовая задача.

Рассчитать финансовый леверидж для данной группы из 8 акционерных обществ, а также рассчитать среднее значение левериджа для этих предприятий.

Облигации (млн. руб)

Привилегированные акции (млн. руб)

Обыкновенные акции (млн. руб)

1 2 3 4 5 6 7 8

10 14 18 14 9 0 0.8

0.3

2 8 4 0 12 7 0.4

0.5

20 31 22 18 60 3.5

2.1

1.3

Сравнительный анализ результата выполнения на компьютере и тестовой задачи.

Значение левериджа полученное на Компьютере

Значение левериджа полученное на калькуляторе

1 2 3 4 5 6 7 8

0.600 0.710 1.000 0.778 0.350 2.000 0.571 0.615

0.600 0.710 1.000 0.778 0.350 2.000 0.571 0.615

среднее значение

0.828

0.828

Руководство пользователя.

После запуска программы на экране появляется пустая форма. Пользователю необходимо ввести данные для первого акционерного общества (в любом порядке) — стоимость выпущенных облигаций, привилегированных акций и обыкновенных акций. Стоимость облигаций и привилегированных акций может быть любым не отрицательным числом, стоимость обыкновенных акций должна быть положительным числом.

После ввода данных нажать кнопку РАСЧЕТ и если данные введены правильно, то производится вычисление финансового левериджа для данного акционерного общества. После вычисления происходит очистка полей ввода для ввода следующих данных. Пока кнопка РАСЧЕТ не нажата можно изменять значение вводимых данных.