23823

Вирази та функції

Лабораторная работа

Информатика, кибернетика и программирование

5 демонструє роботу даного додатка перебування значення річного приросту при відомих значеннях числа виплат24 суми кредиту 120000 і величини щомісячної виплати 6000 Вікно робочого додатка Кредит: Програмний код для цього додатка: Dim r As Single n As Integer v As Currency p As Currency Private Sub Command1_Click r = ValText1.Text n = ValText2.Text v = ValText3.Text r = r 1200 p = Pmtr n v Text4.

Украинкский

2013-08-04

50 KB

6 чел.

ЗВІТ

з лабораторної роботи № 3

" Вирази та функції"

виконав студент IІ курсу відділення МІ група 2  

Киричук Олег Романович 

Дата виконання "5" листопада 2008 р.

Виконання завдань:

1. На екранній формі 4 текстових поля і 3 командні кнопки. Текстові поля призначені для вводу чи виводу наступних величин:

  1.  річного банківського приросту вартості (у відсотках);
  2.  числа періодичних (наприклад, щомісячних) виплат;
  3.  суми отриманого в банку кредиту (приведеної вартості);
  4.  величини однієї виплати.

1-у, 3-у і 4-у величини цього списку можна знайти за допомогою представлених вище фінансових функцій, якщо інші величини цього списку відомі.

Для цієї мети і служать командні кнопки. Для кожної з них написана окрема процедура подія Клік кожної з цих кнопок після вводу трьох чисел у три текстові поля викликає появу четвертого числа в текстовому полі, що залишилося незаповненим.

Мал. 4.5 демонструє роботу даного додатка — перебування значення річного приросту при відомих значеннях числа виплат(24), суми кредиту (120000) і величини щомісячної виплати (6000)

Вікно робочого додатка «Кредит»:

Програмний код для цього додатка:

Dim r As Single, n As Integer, v As Currency, p As Currency

Private Sub Command1_Click()

r = Val(Text1.Text)

n = Val(Text2.Text)

v = Val(Text3.Text)

r = r / 1200

p = -Pmt(r, n, v)

Text4.Text = Str(p)

End Sub

Private Sub Command2_Click()

r = Val(Text1.Text)

n = Val(Text2.Text)

p = Val(Text4.Text)

r = r / 1200

p = -p

v = PV(r, n, p)

Text3.Text = Str(v)

End Sub

Private Sub Command3_Click()

n = Val(Text2.Text)

p = Val(Text4.Text)

v = Val(Text3.Text)

p = -p

r = Rate(n, p, v) * 1200

Text1.Text = Str(r)

End Sub

2. Створив форму, яка  містить п’ять об’єктів типу текстове поле. У текстове поле вводиться один рядок, що містить назву країни, столицю і кількість територіальних одиниць адміністративного поділу. Програма поміщує в окремих  текстових полях інформацію про назву країни, столицю і кількість територіальних одиниць адміністративного поділу.

Програмний код для цього додатка:

Private Sub Command1_Click()

Dim a, b, c As Integer

a = InStr(Text1.Text, " ")

Text2.Text = Left(Text1.Text, a)

b = InStr(a + 1, Text1.Text, " ")

c = b - a

Text3.Text = Mid(Text1.Text, a + 1, c)

Text4.Text = Mid(Text1.Text, b + 1)

End Sub


 

А также другие работы, которые могут Вас заинтересовать

46840. Специфика обучения в дошкольном возрасте 32.5 KB
  Обучение и развитие в дошкольном возрасте С развитием ребенка меняется и характер обучения ребенка. Кро говорит о ребенке 3 лет: уже становится возможным какаято программа обучения и воспитания не школьная программа а программа самого ребенка. Раньше определенного возраста ребенка бесполезно обучать например держать ложку а позже определенного возраста это делать просто бесполезно. В педологии пользуются только нижней границей ниже известного уровня нельзя ребенка обучать тому или ному предмету.
46842. Grammar. Grammatical meaning 32.5 KB
  When we name very general statements about grammar, we are idealizing about the language system, identifying broad patterns. grammar has evolved to fossilitate the expression of basic meanings. Meanings which are so inexpensible and so commonly occuring, that we require an economical means of expressing them. It would be absurd if we had to elaborate entirely new strings of words whenever we wanted to observe things around us. grammatical meaning is closely
46843. Основные принципы построения закладываемые при создании вычислительных систем 32.83 KB
  Вычислительная система ВС совокупность взаимосвязанных и взаимодействующих процессоров или ЭВМ периферийного оборудования и программного обеспечения предназначенную для сбора хранения обработки и распределения информации. Телекоммуникационная вычислительная сеть ТВС – это сеть о6мена и распределенной обработки информации образуемая множеством взаимосвязанных абонентских систем и средствами связи; средства передачи и обработки информации ориентированы в ней на коллективное использование общесетевых ресурсов аппаратных...
46844. Творчество Н.М.Карамзина, повести 33 KB
  Карамзин представитель сентиментализма в России всязи с этим новизной его прозы являются: 1. Карамзин ввел в русскую литературу целый ряд важных тем. Идеологические аспекты дружбы важные для Радищева отходят у Карамзина на второй план. Карамзин сумел показать атмосферу детства навсегда ушедшую из души взрослого человека но в чемто и оставшуюся притягательную и желанную.
46845. Роль и место текстологии в процессах редакционно-издательской деятельности 33 KB
  текста 2 проверки его по первоисточникам и устранения в нем погрешностей ошибок произвольных изменений внесенных вопреки воле и замыслу автора. текста напр. текста аппарата издания. Но он не может быть признан основным чисто механически; для этого требуется изучение всех источников текста обстоятельств жизни автора всей истории текста и т.
46846. Классический психоанализ З.Фрейда. Основные понятия, структура и динамика личности. Стадии психосексуального развития 33 KB
  Фрейд все стадии психического развития человека сводит к стадиям преобразования и перемещения по разным эрогенным зонам либидоносной или сексуальной энергии. Каждая стадия имеет свою либидоносную зону возбуждение которой создает либидоносное удовольствие. Оральная стадия 0 1 год. Оральная стадия характеризуется тем что основной источник удовольствия а следовательно и потенциальной фрустрации сосредоточивается на зоне активности связанной с кормлением.