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


 

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

45034. Инженерная подготовка строительной площадки 42.64 KB
  Бетонную смесь готовят бетоносмесителями и транспортируют с помощью системы внутренних транспортных средств до места заливки либо привозят готовую бетонную смесь автобетоносмесителями или самосвалами Технология устройства защитных покрытии Гидро и пароизоляционные работы выполняют по завершению изготовления конструкции или монтажа сборных конструкций. Однако эти работы могут вестись параллельно с некоторым технологически обусловленным отставанием от работ по изготовлению конструкций на которые будет наноситься гидро и пароизоляция. В...
45035. Семантические принципы 29.5 KB
  Принцип предметности: предложение должно говорить о предметах обозначаемых входящими в него именами а не о самих этих именах. Предложение Стул - это существительное построено правильно. Принцип взаимозаменимости: при замене имен с одинаковым значением предложение в котором эта замена осуществляется не должно изменять свое истинностное значение истинное предложение должно оставаться истинным а ложное ложным. Пусть дано предложение Земля вращается вокруг Солнца.
45036. TRAVELLING BY AIR 33.95 KB
  Modern life is impossible without traveling. There are many ways of traveling: by sea, by plane, by train, by car, on foot. Tastes differ. That іs why it is up to you to decide which means of travelling you'd prefer
45037. TRAVELLING BY SEA 33.59 KB
  It іs wonderful to feel the deck under the feet to see the rise nd fll of the wves to feel the fresh se wind blowing in the fce to her the cry of segulls. Every modern liner hs number of decks with ll sorts of nmes such s promende deck sun deck etc. There re pssenger cbins bove nd below deck.
45038. Розрахунок на точність важільного мікрометра 1.09 MB
  Зовнішній вигляд важільного мікрометра Механізм відліку рисунок 2 складається з синусного механізму з довжиною важеля а виконаного у вигляді вилки 3 з сталевою кулькою який впирається в стінку паза рухомої пятки 2 і зубчатого сектора 4 встановленого на одній осі О з синусним важелем і входячим в зачеплення з центральним колесом 5. Рисунок 2 Схема механізму відлікового пристрою важільного мікрометра Похибка схеми мікрометра обумовлена використанням в ній синусного механізму який має нелінійну функцію перетворення. Знайдемо...
45040. Технология публикации информации в формате. Виды форматов 2.52 MB
  Компьютерный формат файла специфический способ кодирования информации на компьютере. Существуют различные форматы файлов: звуковые форматы форматы автоматизированного проектирования форматы Continer цифровая звукозапись графические форматы видео форматы и т. Чтобы компьютер понимал к какому типу относится тот или иной файл и в какой программе его открыть после имени файла указывается расширение. Расширение файла это часть имени файла которое отделяется от основного имени точкой.
45041. Проектирование перинатального центра 5.07 MB
  Перинатальный центр - учреждение родовспоможения, оказывающее все виды высокотехнологичной и дорогостоящей медицинской стационарной помощи в области акушерства, гинекологии, неонатологии и в т.ч. хирургии новорожденных, а также осуществляющее амбулаторную, консультативно-диагностическую и медико-реабилитационную помощь женщинам и детям раннего возраста.