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

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

Module finlev.bas Global kol As Integer Global summa As Single End Module Sub calcClick If Valvobl. Text 0 Then MsgBox Не все введено Exit Sub End If If Valvprak. Text 0 Then MsgBox Не все введено Exit Sub End If If Valvobak. Text 0 Then MsgBox Неверные данные Exit Sub End If obl Valvobl. Text prak Valvprak. Text obak Valvobak. Text lev obl prak obak kol kol 1 t1 Финансовый леверидж предприятия vivod. Caption t1 Strkol равен MidStrlev, 1, 10 summa summa lev t1 Среднее значение левериджа t2 предприятий равно srdlev. Caption t1 Strkol t2 Strsumma kol titul. Caption Расчет Strkol 1 vprak. Text 0 vobl. Text 0 vobak. Text 0 End Sub Sub EXTClick End End Sub Sub FormLoad kol 0 summa 0 End Sub Sub VOBAKChange If Valvobak. Text 0 Then MsgBox Требуется ввести положительное число vobak. Text 0 End If End Sub Sub VoblChange If Valvobl. Text 0 Then MsgBox Требуется ввести положительное число vobl. Text 0 End If End Sub Sub VPRAKChange If Valvprak. Text 0 Then MsgBox Требуется ввести положительное число vprak. Text 0 End If End Sub Тестовая задача.

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

Облигации млн.рубПривелегированные акциимлн.рубОбыкновенные акциимлн.руб1 2 3 4 5 6 7 810 14 18 14 9 0 0.8 0.32 8 4 0 12 7 0.4 0.520 31 22 18 60 3.5 2.1 1.3 Сравнительный анализ результата выполнения на компьютере и тестовой задачи.

Значение левериджа полученное на КомпьютереЗначение левериджа полученное на калькуляторе1 2 3 4 5 6 7 80.600 0.710 1.000 0.778 0.350 2.000 0.571 0.6150.600 0.710 1.000 0.778 0.350 2.000 0.571 0.615среднее значение0.8280.828Руководство пользователя.

После запуска программы на экране появляется пустая форма.

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

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

После вычисления происходит очистка полей ввода для ввода следующих данных.

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

Если нужно вычислить среднее значение финансового левериджа для другой группы акционерных обществ, то необходимо выйти из программы нажав кнопку ВЫХОД и запустить программу снова. Значение левериджа и среднего левериджа вычисляется с точностью до 10 знаков. Заключение.

Применение ЭВМ во многих видах деятельности уже сейчас позволяет существенно упростить работу людей по подготовке, накоплению и переработке информации, проведению проектных работ и научных исследований. Электронно-вычислительные машины уже есть в школах, и они будут помогать при изучении физики и математики, химии и биологии и многих других учебных предметов. Умение общаться с ЭВМ и использовать их в своей работе, так же как умение пользоваться ручкой в ближайшие 10-15 лет станет необходимым практически для всех взрослых и детей и составит основу компьютерной грамотности Компьютерная грамотность - это умение читать и писать, считать и рисовать, а так же искать информацию, применяя ЭВМ Умение эффективно использовать ЭВМ в работе предполагает определенную культуру.

Она включает в себя знание основных возможностей ЭВМ умение четко ставить задачи, составлять планы их решения и записывать их в форме, понятной ЭВМ умение выделять данные для решения задач и анализировать получаемые результаты.

Эта культура опирается на знание законов логики и информатики. Литература. 1. Маркова Информатика. 2. Маркус Линке Visual Basic 5.0 справочник - перевод с немецкого издательство Бином. 3.Зельднер Г.А. Quick Basic для носорога - Омск 1994 год 4. Microsoft Visual Basic Шаг за шагом 5. Балабанов И.Т. Основы финансового менеджмента. 6 Разработка интерфейса пользователя.