Расчет финансового левериджа
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 |
Руководство пользователя.
После запуска программы на экране появляется пустая форма. Пользователю необходимо ввести данные для первого акционерного общества ( в любом порядке) - стоимость выпущенных облигаций, привелегированных акций и обыкновенных акций. Стоимость облигаций и привелегированных акций может быть любым не отрицательным числом, стоимость обыкновенных акций должна быть положительным числом.
После ввода данных нажать кнопку РАСЧЕТ и если данные введены правильно, то производится вычисление финансового левериджа для данного акционерного общества. После вычисления происходит очистка полей ввода для ввода следующих данных. Пока кнопка РАСЧЕТ не нажата можно изменять значение вводимых данных.
При нажатии кнопки РАСЧЕТ производится вычисление среднего значения финансового левериджа для введенных уже акционерных обществ.
Если нужно вычислить среднее значение финансового левериджа для другой группы акционерных обществ, то необходимо выйти из программы ( нажав кнопку ВЫХОД) и запустить программу снова. Значение левериджа и среднего левериджа вычисляется с точностью до 10 знаков.
Заключение.
Применение ЭВМ во многих видах деятельности уже сейчас позволяет существенно упростить работу людей по подготовке, накоплению и переработке информации, проведению проектных работ и научных исследований. Электронно-вычислительные машины уже есть в школах, и они будут помогать при изучении физики и математики, химии и биологии и многих других учебных предметов.
Умение общаться с ЭВМ и использовать их в своей работе, так же как умение пользоваться ручкой в ближайшие 10-15 лет станет необходимым практически для всех взрослых и детей и составит основу компьютерной грамотности1.
Умение эффективно использовать ЭВМ в работе предполагает определенную культуру. Она включает в себя знание основных возможностей ЭВМ; умение четко ставить задачи, составлять планы их решения и записывать их в форме, понятной ЭВМ; умение выделять данные для решения задач и анализировать получаемые результаты. Эта культура опирается на знание законов логики и информатики.
Литература.
1. Маркова “Информатика”.
2. Маркус Линке “Visual Basic 5.0 справочник” - перевод с немецкого издательство “Бином”.
3.Зельднер Г.А. “Quick Basic для носорога” - Омск 1994 год
4. Microsoft Visual Basic Шаг за шагом/
5. Балабанов И.Т. “Основы финансового менеджмента”.
1 Компьютерная грамотность - это умение читать и писать, считать и рисовать, а так же искать информацию, применяя ЭВМ.
6
Разработка интерфейса пользователя.
Результат выполнения программы на компьютере.
