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

5 чел.

ЗВІТ

з лабораторної роботи № 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


 

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

9047. ПИФАГОР И ПИФАГОРЕЙЦЫ 14.55 KB
  Пифагор и пифагорейцы. Основателем пифагорейства является Пифагор Самосский (580-500 гг.). Пифагор был учеником Анаксимандра, а также изучал математику и астрономию в Египте. Особенностью изучения пифагорейства является то, что письменных трудов Пиф...
9048. Философия Платона - образец классического объективного идеализма 14.72 KB
  Философия Платона. Платон (также Аристокл, 427-347 гг.), как ученик Сократа, продолжает изучать этические и политические проблемы, обращаясь, однако,, и к космологическим вопросам. Около 387 г. он основывает в Афинах специальную школу - Академи...
9049. Политика в общественной жизни людей. Государство и его роль в развитии общества 14.08 KB
  Политика в общественной жизни людей. Государство и его роль в развитии общества. Политика - специфическая сфера общественной жизни. Политика есть стремление к участию во власти или оказанию влияние на распределение власти между различными...
9050. Практика и познание. Гносеология - теория познания 15.72 KB
  Практика и познание. Проблемой познания занимается такой раздел философии, как гносеология – теория познания. Под познанием подразумевается процесс получения знания, деятельность по получению, хранению, переработке и систематизации информации...
9051. Сознание, его природа и сущность. Индивидуальное и общественное сознание 15.38 KB
  Сознание, его природа и сущность. Индивидуальное и общественное сознание. Еще одно свойство материи – отражение - способность тела в результате взаимодействия с другими телами воспроизводить некоторые особенности этого взаимодействия в сво...
9052. ФИЛОСОФИЯ СОКРАТА 13.75 KB
  Философия Сократа. Сократ (469-399) был философом, который, отойдя от натурфилософского истолкования мира, посвятил себя этическим проблемам. Он «спустил философию с неба на землю». Главной его целью был поиск истины. В центре внимания Сократа...
9053. СОФИСТЫ И ИХ РОЛЬ В РАЗВИТИИ ДРЕВНЕГРЕЧЕСКОЙ КУЛЬТУРЫ 14.67 KB
  Софисты и их роль в развитии древнегреческой культуры. В V веке до н.э. заметное место в греческой философии заняла софистика. Первоначально слово софист означало мудрец, затем так стали называть тех, кто обучал молодых детей правильной речи и воз...
9054. Социальная дифференциация. Теория классов и теория стратификации 14.29 KB
  Социальная дифференциация. Теория классов и теория стратификации. В зависимости от конкретных исторических обстоятельств материально-производственной сферы общественной жизнедеятельности людей складываются определенные социальные отношения. В зависи...
9055. Субъекты истории 17.08 KB
  Субъекты истории. История - процесс и результат общественного развития - реализуется через деятельность преследующих свои цели людей. Люди выступают движущими силами, или субъектами в истории, поскольку они, по Гегелю, способны осознавать...