Аналіз економічних показників Японії 1960-1992 рр.. Комп'ютерна підготовка в ГУУ. 2 курс .

Інформатика, програмування

Державний Університет Управління

Ім. Серго Орджонікідзе

Курсовий проект з комп'ютерної підготовки

Виконала студентка

Спеціальності «Світова економіка»

II курсу

Колобекова Алла

Керівник Аленичев А. В.

Москва

1998

ЗАВДАННЯ

на курсовій проект

Загальне завдання:

Скласти засобами Visual Basic і Microsoft Access комплекспрограм, що працюють в режимі діалогу з користувачем, включаючи:
. Алгоритм рішення задачі
. Таблиці Microsoft Access
. Форми документів Visual Basic
. Власне програми.

Пояснювальна записка повинна включати:
. Титульний лист
. Завдання на курсовий проект
. Введення
. Аналіз постановки задачі
. Алгоритм
. Таблиці, форми, тексти програм і структури файлів
. Результати рішення задачі
. Висновок
. Список літератури
. Зміст.

Терміни виконання курсового проекту:
. Термін подання проекту керівникові - 14 грудня 1998
. Час захисту роботи - 28 грудня 1998 року.

Практичне завдання:

Створити таблицю в Microsoft Access з полями:
. Ціна на нафту
. Споживання нафти в Японії
. Розмір ВВП
. Обсяг промислового виробництва
. Зовнішньоторговельний баланс
. Дохід на душу населення

Заповнити таблицю даними за роками з 1960 по 1992 і розробити запит для знаходження даних в залежності від ціни на нафту.

Розробити форму і програму в Visual Basic, що дозволяє зчитувати ці записи, обчислювати середні значення за 4-річні періоди та заносити ці середні значення в файл.

Розробити форму і програму в Visual Basic, що дозволяє зчитувати це фото, обчислювати розмір ВВП, темпи його зміни і знаходити період максимального приросту і періоди, що дають 50% приросту.

Розробити форму і програму в Visual Basic, сортують дані щодо ціни на нафту, і подивитися, чи є залежність цього параметру з темпами зміни розміру ВВП. < p> Проаналізувати отримані результати і зробити висновки.

Введення

Останнім часом зріс інтерес до економіко-політичного життясуспільства в цілому, що передбачає інтерес як по відношенню до всього світу вцілому, так і до окремих країн, чиї досвід і знання можуть бути не тількикорисними, але і вкрай важливими в розвитку тих чи інших держав. Уособливості знання такого роду важливі для країн, чия економіка знаходиться настадії розвитку, а економічні відносини як усередині країни, так і насвітовому ринку мають слабко виражений характер у порівнянні з такимикраїнами, як США, Японія та інші. Знання про цих державах єосновою економіки слаборозвинених країн, а їх досвід багато в чому може допомогти врішенні неминуче виникаючих проблем.

Росію не можна зарахувати до слаборозвиненим країнам, але очевидна такожхиткість її економічного становища та фактична нездатність надаватиконкуренцію економічно розвиненим країнам. Виходом із ситуації, що склаласяможе стати лише пошук нових можливостей розвитку, так як потенціалвеличезний.

У всьому світі проводяться статистичні дослідження з метою збору,обробки та аналізу інформації про економічний розвиток країн длявиявлення закономірностей і встановлення залежності різнихекономічних характеристик один від одного.

В даному курсовому проекті на прикладі даних про Японію показанадинаміка окремих економічних показників і їх взаємозв'язок.

У Microsoft Access ці дані заносяться у вигляді таблиць, що відображаютьстатистичні відомості про Японії за період з 1960 по 1992 року. 32-річнийперіод є достатнім для виявлення закономірностей у динаміці тогочи іншого показника, а також для встановлення залежності міжпоказниками, якщо така існує. Дані щодо Японії включають в себе:
1. розмір внутрішнього валового продукту, який є одним з найпоширеніших показників, що характеризують економічний стан країни;
2. величину ціни на нафту за кожен рік з 32-річного періоду;
3. розмір споживання нафти в Японії, що також говорить про розвиток і добробут суспільства загалом;
4. розмір зовнішньоторговельного обороту, що відображає ситуацію на зовнішньому ринку країни і що дає чисельну характеристику торговельних операцій Японії з іншими країнами світу;
5. обсяг промислового виробництва, що характеризує стан економіки усередині країни;
6. величину доходу на душу населення, що дозволяє зробити висновки про добробут населення та розвитку економіки в цілому.

Далі, за допомогою Visual Basic проводиться аналіз наявних даних, їхугруповання за ознакою, вказаному в завданні, а також знаходження середніхзначень даних за чотирирічні періоди, починаючи з 1960 року. Середнівеличини роблять більш зручним порівняння та аналіз інформації, тому щопоказують певну тенденцію у зміні того чи іншого показника.
Потім, за допомогою засобів Visual Basic визначаються темпи змінипоказників за завданням, а також знаходиться період максимального прироступевного показника і періоди, що дають 50% приросту. Це проводиться длятого, щоб визначити, в який період за 62 року приріст внутрішньоговалового продукту був найбільшим, тобто в який період економіка Японіїрозвивалася найбільш активно, щоб згодом було можливо виявитипричини такого зростання і усунути фактори, що перешкоджають як розвиткуекономіки в цілому, так і сповільнюють зростання економічних показників вконкретній галузі.

Описані вище операції в Visual Basic реалізуються шляхомвпровадження форм та елементів керування у них, які створюються дляполегшення сприйняття інформації, зручності користування їй, а також дляможливості здійснювати над наявними даними певні операції,заплановані можливостями даної програми.

Для того, щоб мати можливість оперувати даними про Японію,представленими в таблиці Microsoft Access, необхідно, щоб ці данімогли бути відображеними в Visual Basic. Це можливо, завдяки тому, щообидві ці програми (Microsoft Access і Visual Basic) є продуктамикомпанії Microsoft ®, і Visual Basic припускає можливість встановленнязв'язку з даними, розміщеними в таблицях Microsoft Access.

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

Є дані з Японії за період з 1960 по 1992 роки,що представляють собою зведену таблицю в Microsoft Access. Дані взято зстатистичні довідники. Для занесення даних в Microsoft Accessнеобхідно створити нову базу даних, потім таблицю в ній і послідовноввести всі наявні дані з Японії в режимі конструктора (рис.1),заповнюючи рядки з іменами полів і типом відповідних даних. Імена полівв даному випадку - назва економічних показників за 32-річний період, атому що всі дані числові, то це буде відображено у відповіднихрядках з типом даних. Після завершення формування макета вихідної таблиці,необхідно відкрити вийшла таблицю і ввести всі наявні дані защороку у відповідні графи таблиці (мал. 2).

Таблиця з вихідними даними в режимі конструктора виглядає такимчином: Рис. 1

Таблиця, що вийшла після введення даних про Японію, має такий вигляд:

Після створення таблиці в Microsoft Access необхідно розробити запитдля знаходження даних в залежності від ціни на нафту. Для цього требастворити запит і в режимі конструктора (мал. 3) ввести необхідні поля, атакож ім'я таблиці, дані з якої використовуються в запиті, потім ввестиумова сортування, якщо це необхідно (по зростанню, по зменшенню) іумова відбору даних з іншої таблиці.

Запит у режимі конструктора буде виглядати наступним чином:

Рис. 3

Готовий запит буде мати такий вигляд:

На цьому закінчується частина роботи, яка виконується в Microsoft Access, іпочинається безпосереднє створення програми в Visual Basic, якавиконувала б необхідні за умовою завдання операції над даними,розміщеними в таблицях Microsoft Access.

У Visual Basic починаємо новий проект, вибираючи в меню New File пункт
New Project. Виділяємо першу форму і у вікні Properties у графі Captionвстановлюємо для першої форми назву 'Зчитування даних і знаходженнясередніх значень ', при цьому ім'я першого форми - Form1.

У першій формі створюємо елемент DataControl з ім'ям Data1.В вікнівластивостей у графі Caption встановлюємо назву 'Вихідні дані'. У графі
Connect - значення Access. У графі DatabaseName вказуємо шлях до файлу,містить таблицю Microsoft Access. У графі RecordSource вказуємоназва таблиці Microsoft Access, яка містить вихідні дані з Японії.

Потім у першій формі створюємо 7 елементів TextBox - текстових полів - покількості стовпців у вихідній таблиці. Над кожним текстовим полемрозміщуємо елементи Label - мітки, які містять назви кожного стовпця. Уданому випадку це рік, розмір ВВП, ціни на нафту, розмір споживання нафти,розмір зовнішньоторговельного обороту, обсяг промислового виробництва і дохід надушу населення. У кожного текстового поля у вікні властивостей у графі DataSourceвстановлюємо значення Data1, а в графі DataField - вибираємо назву тогостовпця вихідної таблиці, що відображає дане текстове поле. Так впершому текстовому полі буде значення 'Рік', у другому - 'Розмір ВВП' і т.д.

Таким чином, ми встановили зв'язок Visual Basic з таблицею в
Microsoft Access.

За допомогою зв'язку з цим ми можемо здійснювати зчитування даних зтаблиці для виконання необхідних операцій, передбачених завданням. Призапуску програми в текстових полях будуть відображатися дані таблиці
Microsoft Access, а, використовуючи стрілки на елементі Data1, можна вироблятипрокручування даних, так щоб вони послідовно з'являлися в текстовихполях. Для того, щоб після запуску програми користувач не міг ввести втекстові поля жодної інформації, тобто для «захисту» текстових полів відсторонніх записів, необхідно в процедуру Text1_Change () ввестинаступний код:

Text1.Enabled = False

Аналогічні коди необхідно ввести в процедури для другого, третього іт. д. текстових полів. Це зробить текстові поля недоступними для введенняінформації і перетворить їх на поля, що відображають дані про економічніпоказниках.

Згідно з завданням, необхідно обчислити середні значення даних по
Японії за чотирирічні періоди, починаючи з 1960 року. Перш, ніж написатипрограму, що дозволяє здійснювати подібні операції, необхідно створитиелемент управління, який буде відповідати за виконання цих операцій. Уданому випадку найбільш наочним і зручним у використанні буде елемент
CommandButton. Виділивши цей елемент, у вікні властивостей у графі Caption замінимозначення Command1 на 'Розрахунок середніх значень даних за 4-річні періоди,починаючи з 1960 року '. Після запуску програми натискання на цю кнопку будеприводити в дію механізм обчислення середніх значень даних, якібудуть відображатися в текстових полях.

Перш, ніж виконувати обчислення середніх значень, необхідновважати дані з текстових полів, які їх містять. Для цього требазапустити цикл від 1 до 32 (кількість записів у кожному стовпчику таблиці),який би вводив значення з текстових полів в масиви. Так якнеобхідно, щоб описані вище операції виконувалися при натисканні накнопку, то в процедуру Command1_Click () введемо код:

For i = 1 To 32 mag (i) = Text1.Text mas (i) = Text2.Text ma (i) = Text3.Text maq ( i) = Text4.Text maw (i) = Text5.Text mar (i) = Text6.Text maz (i) = Text7.Text

Data1.Recordset.MoveNext

Next ii -
ППППППППППППППППППxППППППППППППППППППППППППППППППППППППППППППППППППППППППППП
ПППППППППППППППППППППППППППППППППППППППППППППППППППППППППППППППППППППППППППП
ППППППППППППППrПППППППППППППППППППППППППППППППППППППППППППППППППППППППППППперемінна, mag (i), mas (i), ma (i), maq (i), maw (i), mar (i) і maz (i) --відповідно масиви зі значеннями року, розміру ВВП, ціни на нафту,розміру споживання нафти, розміру СОТ, обсягу промислового виробництва ірозміром доходу на душу населення. Запис Data1.Recordset.MoveNextозначає, що після виконання зчитування даних за перший рік Data1пересуне дані в текстових полях на одну вперед і зчитування будепроводитися вже за наступний рік і т. д.

Але може статися так, що після запуску користувач здійснитьнатискання один або кілька разів на елемент Data1 до того, як натиснути накомандну кнопку. Це призведе до збою програми, тому що в даному випадкув коді, наведеному вище, запис, що знаходиться в текстовому полі будесприйматися як перші, а так як записів всього 32, то це призведе донеможливість завершення циклу. Щоб уникнути цього, перед даними кодомпомістимо рядок:

Data1.Recordset.MoveFirst

Ця запис забезпечить пересуву даних в текстових полях до першого записуперед виконанням зчитування.

Для знаходження середніх значень даних за 4-річні періоди,необхідно суму значень за кожен рік з даного періоду розділити накількість років у періоді, тобто в даному випадку - на 4. Тому впроцедуру Command1_Click () введемо наступний код: j = 1
For i = 1 To 32 Step 4 h (j) = (mas (i) + mas (i + 1) + mas (i + 2) + mas (i + 3))/4 q (j) = (ma (i) + ma (i + 1) + ma (i + 2) + ma (i + 3))/4 w (j) = (maq (i) + maq (i + 1) + maq (i + 2) + maq (i + 3))/4 p (j) = (maz (i) + maz (i + 1) + maz (i + 2) + maz (i + 3))/4 r (j) = (mar (i) + mar (i + 1) + mar (i + 2) + mar (i + 3))/4 x (j) = (maw ( i) + maw (i + 1) + maw (i + 1) + maw (i + 3))/4 j = j + 1

Next i

j - мінлива ; масиви h (j), q (j), w (j), p (j), r (j) і x (j) --відповідно масиви, що містять середні значення даних за періоди з
1960 по 1963 рік, з 1964 по 1967 рік і т. д.

Запис For i = 1 To 32 Step 4 означає, що кожного наступногомасив введення даних буде проводитися з елемента, номер якого на 4більше номера першого елемента попереднього масиву, тобто в першумасив - з першого по четвертий елемент, у другій - з п'ятого (номерякого на 4 більше номера першого) по восьмий і т. д. до 32.

Після обчислення середніх значень даних за 4-річні періодинеобхідно, щоб користувач міг побачити отримані величини. Для цьоговставимо у форму елементи керування ListBox, в яких будуть відображатисясередні значення даних. Над кожним елементом розмістимо мітки, які містятьназви даних, що відображаються в цьому списку. У підсумку вийде шістьсписків, над кожним з яких є позначка з назвою. Для виводусередніх значень даних з масивів в списки в процедуру Command1_Click ()введемо наступний код:

For i = 1 To 8

List2.List (i - 1) = h (i)

List3.List (i -- 1) = q (i)

List4.List (i - 1) = w (i)

List5.List (i - 1) = p (i)

List6.List (i - 1) = r (i)

List7.List (i - 1) = x (i)

Next i
Після запуску програми при натисканні командної кнопки у списках з'являтьсясередні значення даних за 4-річні періоди, починаючи з 1960 року.

Згідно з завданням, після розрахунку середніх значень, необхіднозанести їх у файл. Для зручності користувача зробимо так, щоб він мавможливість сам вибирати той файл, в який будуть занесені середнізначення. Для цього розмістимо в першій формі елементи DriveListBox,
DirListBox і FileListBox, що відображають відповідно диск, каталог і файлдля запису даних. За допомогою цих елементів користувач після запускупрограми вибере файл для запису середніх значень даних. Після того, яквін зробить це, необхідно зробити запис у файл, вказанийкористувачем, середніх значень показників, розрахованих до цього.
Створимо командну кнопку, при натисканні на яку середні значеннязаписувалися б у файл. Для неї у вікні властивостей у графі Caption встановимозначення 'Примітка середніх значень в файл'. Введемо в процедуру
Command2_Click () наступний код:

Open File1 For Output As # 1

For i = 1 To 8

Write # 1, h (i), q (i), w (i), p (i), r (i), x (i)

Next i

Close # 1
Перший рядок даного коду відкриває файл, вибраний користувачем длязаписи в елементі FileListBox. А наступні рядки записують у ньогосередні значення і після закінчення запису закривають файл.

Згідно з завданням, такі операції необхідно проводити віншій формі. Тому створюємо в проекті ще одну форму, для якої у вікнівластивостей у графі Caption вводимо значення 'Визначення темпів зміни ВВП,періоду max приросту і сост. 50% '. Для того, щоб під час роботипрограми можна було з першого форми перейти до другої, в першу формінеобхідно створити кнопку, яка забезпечувала б цей перехід. Створившикомандну кнопку, для неї у вікні властивостей у графі Caption встановимо значення
'Кнопка переходу до наступного етапу програми'. Щоб при натисканні на цюкнопку після запуску програми здійснювався перехіддо другої формі,необхідно в процедуру Command3_Click () ввести наступний код:

Form1.Hide

Form2.Show
Ці команди сховають першу форму і зроблять видимої другу форму.

Згідно з завданням, у другій формі необхідно вважати файл зісередніми значеннями показників. Для того, щоб зробити це, треба, щобкористувач вказав файл, в який записані ці дані. Для цьоговикористовуємо елементи DriveListBox, DirListBox і FileListBox. Розмістимо їх удругий формі поряд з міткою, що пояснює користувачеві, що він повиненвказати файл з середніми значеннями. Після того, як користувач зробитьце, необхідно вважати дані з файлу. Для цього створимо команднукнопку, для якої у вікні властивостей у графі Caption введемо значення
'Зчитування даних з файлу, визначення ВВП і темпи його зміни'. Яквидно з назви кнопки, за її допомогою ми будемо визначати розмір ВВП ізнаходити темпи його зміни, що також потрібно в завданні.

Для того, щоб вважати дані з файлу, вказаного користувачем,необхідно ввести у процедуру Command1_Click () наступний код:

Open File1 For Input As # 1

For i = 1 To 8

Input # 1, a1 ( i), a2 (i), a3 (i), a4 (i), a5 (i), a6 (i)

L1.List (i - 1) = a1 (i)

Next i

Close # 1

Рядок L1.List (i - 1) = a1 (i) забезпечує виведення в список, розміщений удругий формі, значень ВВП.

Згідно з завданням, після того, як значення ВВП будуть прочитані зфайлу, необхідно розрахувати темпи зміни ВВП. Щоб визначити темпзміни ВВП або його приріст, треба зі значення ВВП, відповідногонаступного місяця, відняти значення ВВП у попередньому місяці. Для розрахункутемпів зміни ВВП введемо в процедуру Command1_Click () наступний код: j = 1

For i = 1 To 8 t (j) = a1 (i + 1) - a1 (i) j = j + 1

Next i

For i = 1 To 7

L2.List (i - 1) = t (i)

Next i
Запис L2.List (i - 1) = t (i) виводить у другий список, розміщений у формі,дані про приріст ВВП.

Згідно з завданням, далі необхідно розрахувати період максимальногоприросту і період, що дає 50% приросту ВВП. Щоб визначити, які цеперіоди, створимо в другій формі командну кнопку, для якої у вікнівластивостей у графі Caption Встановимо значення 'Знаходження періоду max приростуі періоду приросту в 50% '. Створимо 2 текстових поля, перший з якихбуде відображати розмір максимального приросту ВВП, а другий - періодтакого приросту. Щоб зробити ці текстові поля недоступними для введенняінформації під час роботи програми, в процедуру Form_Load введемо коди:

T1.Enabled = False

T2.Enabled = False
T1 і T2 - відповідно назви першого та другого текстових полів.

Створимо 2 аналогічних текстових поля для виведення значень приросту ВВП,що становить 50%, і періоду з таким приростом ВВП.

У процедуру Command2_Click () введемо код для знаходження періоду ізначення максимального приросту ВВП:

Max = 0

For i = 1 To 7

If t (i)> Max Then

Max = t (i) p = i

End If

Next i

T1.Text = Max
Ця частина коду визначає значення максимального приросту і виводить його вперше текстове поле. Змінна p є лічильником, за допомогою якогоми визначаємо період максимального приросту ВВП:

If p = 1 Then

T2.Text = "1964 - 1967 рр.."

End If

If p = 2 Then

T2.Text = "1968 - 1971 рр.."

End If

If p = 3 Then

T2.Text = "1972 - 1975 рр.."

End If

If p = 4 Then

T2.Text = "1976 -- 1979 рр.. "

End If

If p = 5 Then

T2.Text =" 1980 - 1983 рр.. "

End If

If p = 6 Then

T2.Text = "1984 - 1987 рр.."

End If

If p = 7 Then

T2.Text = "1988 - 1991 гг."

End If
Ця частина коду аналізує значення змінної p і, залежно від їїзначення виводить у другий текстове поле дані про період максимальногоприросту.

Якщо приріст ВВП становить 50%, це означає, що ставлення значення
ВВП наступного періоду до значення ВВП попереднього періоду складає 1.5.
Тому для визначення приросту ВВП у 50% і періоду, що дає такийприріст, необхідно розрахувати відношення приросту ВВП наступного періодудо попереднього по всіх періодах. Щоб зробити це, введемо в процедуру
Command2_Click () наступний код: j = 1

For i = 1 To 8 q (j) = a1 (i + 1)/a1 (i) j = j + 1

Next i
Це введе в масив q (j) значення відносин приросту ВВП наступногоперіоду до попереднього. Для обчислення значення приросту ВВП, що становить
50%, введемо наступний код:

For i = 1 To 7

If q (i) = 1.5 Then per = i

T3.Text = q (i)

Else

T3.Text = "--------------------------- - "

T4.Text =" НІ "

End If

Next i
У цьому коді мінлива per є лічильником, який дозволитьвизначити період приросту ВВП у 50%. Ця частина коду дозволяє знайтизначення приросту ВВП у 50%, якщо таке є, і вивести його в третьомутекстове поле. В іншому випадку в третьому текстовому полі з'явитьсяпрочерк, а в четвертому полі, що відображає період даного приросту, з'явитьсянапис "ні". Для визначення періоду, який дав приріст ВВП у 50%, введемонаступний код:

If per = 1 Then

T4.Text = "1964 - 1967 рр.."

End If

If per = 2 Then

T4.Text = "1968 - 1971 рр.."

End If

If per = 3 Then

T4.Text = "1972 - 1975 рр.."

End If

If per = 4 Then

T4.Text = "1976 - 1979 рр.."

End If

If per = 5 Then

T4.Text = "1980 - 1983 рр.."

End If

If per = 6 Then

T4.Text = "1984 - 1987 рр.."

End If

If per = 7 Then

T4.Text = "1988 - 1991 гг."

End If
Ця частина коду визначає і виводить в четверте текстове поле період,якому приріст ВВП склав 50%.

Згідно з завданням, наступна частина роботи повинна виконуватися в інший,третій формі. Тому в другій формі необхідно створити командну кнопку,дозволяє перейти до третього формі після виконання всіх необхіднихоперацій в другій формі. Спочатку створимо ще одну форму в нашому проекті іу вікні властивостей у графі Caption встановимо для неї значення 'Сортуванняданих щодо ціни на нафту '.

Зауважимо, що до того, як всі операції в другій формі будутьздійснені, перейти в третю форму буде неможливим через те, що вкомандні кнопки 1 і 2 введені коди, що передбачають певний порядоку використанні кнопок. Так в процедуру Form_Load () уведений код, що робитьнедоступними всі командні кнопки:

Command1.Enabled = False

Command2.Enabled = False

Command3.Enabled = False
Для активізації кожної кнопки необхідно виконати певні дії,передбачені програмою. Так, наприклад, вибір користувачем файлу длязапису середніх значень даних робить доступною перший командну кнопку,так як в процедуру File1_Click () введений код:

Command1.Enabled = True
Після виконання операцій, передбачених кодом першої кнопки, другийкнопка стає доступною, так як в процедуру Command1_Click () введенийкод:

Command2.Enabled = True
І так далі.

Для того, щоб треті командна кнопка здійснювала перехід до третьогоформі, в процедуру Command3_Click () необхідно ввести наступний код:

Form2.Hide

Form3.Show
Цей код приховує другу форму і робить видимою третю форму.

У третій формі, згідно із завданням, необхідно провести сортуванняданих про Японії за ціною на нафту. Для цього необхідно, по-перше, вважатидані, які будуть сортуватися. Для цього в першу формі в процедуру
Command2_Click () введемо код, що дозволяє зчитувати дані з текстовихполів та заносити їх в допоміжний файл, названий 'data1':

Open "data1" For Output As # 1

For i = 1 To 32

Write # 1, mag (i), mas (i), ma (i), maq (i), maw (i), mar (i), maz (i)

Next i

Close # 1
Перш ніж проводити сортування даних, необхідно вважати їх з допоміжного файлу. Для цього створимо в третій формі командну кнопку з назвою 'Сортування даних за ціною на нафту' і в процедуру
Command1_Click () введемо наступний код:

Open "data1" For Input As # 1

For i = 1 To 32

Input # 1, mag (i), mas (i), ma (i), maq (i), maw (i), mar (i) , maz (i)

Next i

Close # 1
Після того, як дані з допоміжного файлу будуть прочитані, необхіднопровести їх сортування за ціною на нафту. Це означає, що значення ціни нанафту будуть розташовуватися за зростанням, а всі інші значенняпоказників будуть відображатися відповідно до цих значень.

Для того, щоб після запуску програми при натисканні кнопки відбувалася сортування, необхідно в процедуру
Command1_Click () ввести наступний код:

10 pr = True i = 1

20 If ma (i)> ma (i + 1) Then buf = ma (i) buf1 = mag (i) buf2 = mas (i) buf3 = maq (i) buf4 = maw (i) = buf5 mar (i) buf6 = maz (i) ma (i) = ma (i + 1) mag (i) = mag (i + 1) mas (i) = mas (i + 1) maq (i) = maq (i + 1) maw (i) = maw (i + 1) mar (i) = mar (i + 1) maz (i) = maz (i + 1) ma (i + 1) = buf mag (i + 1) = buf1 mas (i + 1) = buf2 maq (i + 1) = buf3 maw (i + 1) = buf4 mar (i + 1) = buf5 maz (i + 1) = buf6 pr = False

End If i = i + 1

If i = 32 Then

GoTo 30

Else

GoTo 20

End If

30 If pr = False Then

GoTo 10

Else

GoTo 200

End If

Після проведення сортування даних за ціною на нафту, необхідновивести ці сортовані дані до списків. Для цього в третій формістворимо сім списків (за кількістю показників), в яких будутьвідображатися сортовані дані. Над ними розмістимо сім міток зназвами відповідних списків: «Рік», «Розмір ВВП» і т. д. Длявідображення в списках сортованих даних необхідно створити в третійформі другу командну кнопку, для якої у вікні властивостей у графі Captionвстановимо значення 'Вивід сортованих даних'. Щоб зробити цю кнопкунедоступною до проведення сортування, в процедуру Form_Load () додамо код:

Command2.Enabled = False
Щоб зробити доступною кнопку виведення сортованих даних після натисканнякнопки сортування і недоступною саму кнопку сортування, в процедуру
Command1_Click () введемо код:

Command2.Enabled = True

Command1.Enabled = False
Для того, щоб після запуску програми при натисканні на другу команднукнопку в третій формі сортовані дані відображалися всписках, необхідно в процедуру
Command2_Click () ввести наступний код:

For i = 1 To 32

List1.List (i - 1) = mag (i)

List2.List (i - 1) = mas (i)

List3.List (i - 1) = ma (i)

List4.List (i - 1) = maq (i)

List5.List (i - 1) = maw (i)

List6.List (i - 1) = mar (i)

List7.List (i - 1) = maz (i)

Next i

На цьому операції, виконання яких передбачено завданням,закінчуються. Але може виникнути ситуація, коли користувачеві буде потрібнопісля виконання всіх дій у третій формі повернутися до першого або піддруга форми. Для забезпечення можливості таких переходів, створимо втретій формі рамку (елемент управління Frame), в якій розмістимо дваелемента керування OptionButton. За допомогою цих перемикачів будездійснюватися перехід в першому або у другому форми. Коди в них будутьаналогічні кодам в кнопках переходу від однієї форми до іншої:

Form3.Hide

Form1.Show для першого перемикача і

Form3.Hide < p> Form2.Show для другого перемикача.

Після написання необхідних кодів до всіх елементів керування, можнаперейти до візуального оформлення форм, використовуючи такі властивості елементівуправління, як BackColor, ForeColor, Font, щоб надати їм бажанийзовнішній вигляд.

Згідно з завданням, після того, як будуть виконані всі необхідніоперації в третій формі, треба подивитися, чи існує залежність міжціною на нафту і темпами зміни розміру внутрішнього валового продукту.

Виходячи з міркувань логіки, можна зробити деякі попередніув'язнення. Японія - країна з високим рівнем розвитку, що займає одну зпередових позицій на світовому ринку. Але, як відомо, вона відчуваєнедолік в ресурсах, що є в її володінні, тому змушенаімпортувати їх з інших країн. Що стосується нафти, яка вкрай важливадля будь-якої країни, Японія купує його у різних держав, у тому числі іу Росії. Внутрішній валовий продукт включає в себе державнівитрати на всі покупки ресурсів, а, значить, і нафти. І хоча можнапростежити залежність між розміром ВВП і величиною ціни на нафту, що робитивисновки про пряму пропорційності ціни на нафту розміром ВВП, швидше за все,не можна, тому що необхідно брати до уваги безліч інших факторів,що впливають на економічний стан країни, індикатором якогоє внутрішній валовий продукт. А тому можна сказати, що, ймовірно,на якому-небудь невеликому відрізку часу буде спостерігатися прямазалежність ціни на нафту від розміру ВВП, але можливі також періоди, деця залежність буде зворотним. Для більш повного аналізу необхідно мативідомості про велику кількість економічних показників і брати доувагу навіть такі фактори, як ситуація в суспільстві, війни, природнікатаклізми, положення в інших країнах і в усьому світі в цілому.

АЛГОРИТМ

Введення даних в масиви з текстових полів

Обчислення середніх значень < p> даних і введення середніх значень в масиви

Виведення середніх значень даних в списки

Запис середніх значень в

файл, вибраний

користувачем

Перехід до другої формі

Зчитування даних з файлу

Знаходження ВВП, темпів його

зміни і виведення даних в списки

Знаходження періоду max приросту і приросту в 50%

Висновок в текстові поля

значень і періодів max приросту ВВП і в 50%

Перехід до третьої формі

Сортування даних

ціною на нафту

Висновок сортованих

даних до списку

Перехід до першої Перехід додругий форміформі

В курсовому проекті були наведені коди для окремих елементівуправління. Нижче даються тексти програм з коментарями для більш повногосприйняття.

. ДЛЯ ПЕРШОЇ ФОРМИ:
Dim mas (40) As Single
Dim mag (40) As Single
Dim ma (40) As Single
Dim maq (40) As Single

Dim maz (40) As Single

Dim mar (40) As Single
Dim maw (40) As Single
Dim j, i As Integer
Dim h (10) As Single
Dim q (10) As Single
Dim w (10) As Single
Dim r (10) As Single
Dim p (10) As Single
Dim x (10) As Single

Private Sub Command1_Click ()
Data1.Recordset.MoveFirst 'Переходить до першого рядку даних
MsgBox "Ця кнопка виведе середні значення даних за 4-річні періоди,починаючи з 1960 року! " 'Видає повідомлення про кнопку'
For i = 1 To 32 'Введення даних в масиви з текстових полівmag (i) = Text1.Textmas (i) = Text2.Textma (i) = Text3.Textmaq (i) = Text4.Textmaw (i) = Text5.Textmar (i) = Text6.Textmaz (i) = Text7.Text
Data1.Recordset.MoveNext 'Переходить до наступного рядка даних

Next i

j = 1
For i = 1 To 32 Step 4 'Обчислення середніх значень за даними і введенняїх в масивиh (j) = (mas (i) + mas (i + 1) + mas (i + 2) + mas (i + 3))/4q (j) = (ma (i) + ma (i + 1) + ma (i + 2) + ma (i + 3))/4w (j) = (maq (i) + maq (i + 1) + maq (i + 2) + maq (i + 3))/4p (j) = (maz (i) + maz (i + 1) + maz (i + 2) + maz (i + 3))/4r (j) = (mar (i) + mar (i + 1) + mar (i + 2) + mar (i + 3))/4x (j) = (maw (i) + maw (i + 1) + maw (i + 1) + maw (i + 3))/4j = j + 1
Next i
For i = 1 To 8 CB † '... аЙБ ~ ПЛ? "НЇе-! ЛГ1 <" 2 ^ -
† І ^ Е «ъ $ ... Ф & зl [?] ... ~ C0ЖД, бўпвжb7">? A! F-BpДЎf ™ h? (Д? "ЖЇц-
! З ‰ ~ @ _ЧЈ ^ їжак (<ПзИ ‰ обід ° RяRя?? L [?] ЮоГ1? "2Ше ... @ ^?" ЕЗЈш ? ВО `~ <" † ^ Йѕ? Хж (‰''Висновоксередніх значень в списки
List2.List (i - 1) = h (i)
List3.List (i - 1) = q (i)
List4.List (i - 1) = w (i)
List5.List (i - 1) = p (i)
List6.List (i - 1) = r (i)
List7.List (i - 1) = x (i)

Next i

Dir1.Enabled = True 'Робить доступним DirListBox
Drive1.Enabled = True 'Робить доступним DriveListBox
File1.Enabled = True 'Робить доступним FileListBox
Command1.Enabled = False 'Робить кнопку знаходження Ср значеньнедоступною
Label14.Visible = True 'Робить видимою мітку з повідомленням
End Sub

Private Sub Command2_Click ()
Open File1 For Output As # 1 'Відкриває файл, вибраний користувачем
For i = 1 To 8 'Записує дані в файл
Write # 1, h (i), q (i), w (i), p (i), r (i), x (i)
Next i
Close # 1 'Закриває файл
Open "data1" For Output As # 1 'Створює допоміжний файл "data1"
For i = 1 To 32 'Записує в нього всі дані
Write # 1, mag (i), mas (i), ma (i), maq (i), maw (i), mar (i), maz (i)
Next i
Close # 1 'Закриває файл "data1"
Command2.Enabled = False 'Робить кнопку запису даних у файлнедоступною після запису
Command3.Enabled = True 'Робить доступною кнопку переходу в ін форму

End Sub

Private Sub Command3_Click ()
Form1.Hide 'Приховує 1 форму
Form2.Show 'Показує 2 форму
Command1.Enabled = True 'Робить доступною кнопку знаходження середніхзначень

End Sub
Private Sub Dir1_Change ()
File1 = Dir1 'Відображає в FileListBox файли, що містяться в
DirListBox
End Sub

Private Sub Drive1_Change ()
ChDrive Drive1 'Змінює диск
Dir1 = Drive1 'Відображає в DirListBox каталоги диска, зазначеного в
DriveListBox
ChDir Dir1 'Змінює каталог
End Sub

Private Sub File1_Click ()
Command2.Enabled = True 'Робить кнопку запису даних у файл доступною

End Sub

Private Sub Form_Load ()
Label14.Visible = False 'Робить невидимої мітку з повідомленням
Dir1.Enabled = False 'Робить недоступним DirListBox
Drive1.Enabled = False 'Робить недоступним DriveListBox
File1.Enabled = False 'Робить недоступним FileListBox
Command2.Enabled = False 'Робить кнопку запису даних у файл недоступною
Command3.Enabled = False 'Робить недоступною кнопку переходу в ін форму
MsgBox "Привіт, Ласкаво просимо в Visual Basic!" 'Видає повідомлення
'Видає привітання
End Sub

Private Sub Text1_Change ()
Text1.Enabled = False 'Робить текстове поле недоступним

End Sub

Private Sub Text2_Change ()
Text2.Enabled = False 'Робить текстове поле недоступним
End Sub

Private Sub Text3_Change ()
Text3.Enabled = False 'Робить текстове поле недоступним
End Sub

Private Sub Text4_Change ()
Text4.Enabled = False 'Робить текстове поле недоступним

End Sub

Private Sub Text5_Change ()
Text5.Enabled = False 'Робить текстове поле недоступним

End Sub

Private Sub Text6_Change ()
Text6.Enabled = False 'Робить текстове поле недоступним
End Sub

Private Sub Text7_Change ()
Text7.Enabled = False 'Робить текстове поле недоступним

End Sub

. ДЛЯ ДРУГОЇ ФОРМИ:
Dim q (10) As Single
Dim t (10) As Single
Dim p As Integer
Dim per As Integer
Dim i, j As Integer
Dim a1 (50) As Single
Dim a2 (10) As Single
Dim a3 (10) As Single
Dim a4 (10) As Single
Dim a5 (10) As Single
Dim a6 (10) As Single

Private Sub Command1_Click ()
Open File1 For Input As # 1 'Відкриває файл
For i = 1 To 8 'зчитувати інформацію про масиви
Input # 1, a1 (i), a2 (i), a3 (i), a4 (i), a5 (i), a6 (i)
L1.List (i - 1) = a1 (i) 'Виводить до списку дані про ВВП
Next i
Close # 1 'Закриває файлj = 1
For i = 1 To 8t (j) = a1 (i + 1) - a1 (i) 'Розрахунок приросту ВВПj = j + 1
Next i
For i = 1 To 7 'Виводить дані про приріст до списку
L2.List (i - 1) = t (i)
Next i
Command1.Enabled = False 'Робить недоступною кнопку виведення даних проприрості
Command2.Enabled = True 'Робить доступною кнопку знаходження max приросту
End Sub

Private Sub Command2_Click ()
Max = 0 'Знаходження max приросту
For i = 1 To 7
If t (i)> Max Then
Max = t (i)p = i 'Счетчик
End If
Next i
T1.Text = Max 'Виводить значення max приросту в текст. поле
If p = 1 Then "Визначає період max приросту і виводить його в текст.поле
T2.Text = "1964 - 1967 рр.."
End If
If p = 2 Then
T2.Text = "1968 - 1971 рр.."
End If
If p = 3 Then
T2.Text = "1972 - 1975 рр.."
End If
If p = 4 Then
T2.Text = "1976 - 1979 рр.."
End If
If p = 5 Then
T2.Text = "1980 - 1983 рр.."
End If
If p = 6 Then
T2.Text = "1984 - 1987 рр.."
End If
If p = 7 Then
T2.Text = "1988 - 1991 гг."
End Ifj = 1
For i = 1 To 8q (j) = a1 (i + 1)/a1 (i) 'Розрахунок відносини ВВП наступного періоду до
ВВП попереднього періодуj = j + 1
Next i
For i = 1 To 7 'Знаходить і виводить в текст. поле період приросту в
50%, якщо такий є
If q (i) = 1.5 Thenper = i 'Счетчик
T3.Text = q (i)
Else
T3.Text = "----------------------------"< br>T4.Text = "НІ"
End If
Next i
If per = 1 Then
T4.Text = "1964 - 1967 рр.."
End If
If per = 2 Then
T4.Text = "1968 - 1971 рр.."
End If
If per = 3 Then
T4.Text = "1972 - 1975 рр.."
End If
If per = 4 Then
T4.Text = "1976 - 1979 рр.."
End If
If per = 5 Then
T4.Text = "1980 - 1983 рр.."
End If
If per = 6 Then
T4.Text = "1984 - 1987 рр.."
End If
If per = 7 Then
T4.Text = "1988 - 1991 гг."
End If
Command1.Enabled = False 'Робить недоступною кнопку знаходження ВВП
Command2.Enabled = False 'Робить недоступною кнопку розрахунку maxприросту
Command3.Enabled = True 'Робить доступною кнопку переходу в ін форму
End Sub

Private Sub Command3_Click ()
Form2.Hide 'Приховує 2 форму
Form3.Show 'Показує 3 форму
Command1.Enabled = True 'Робить доступною кнопку розрахунку приросту
ВВП
End Sub

Private Sub Dir1_Change ()
File1 = Dir1
End Sub

Private Sub Drive1_Change ()
ChDrive Drive1
Dir1 = Drive1
ChDir Dir1
End Sub

Private Sub File1_Click ()
Label7.Visible = False 'Робить невидимої мітку з Паломництва
Command1.Enabled = True 'Робить доступною кнопку знаходження приросту
ВВП
Drive1.Enabled = False 'Робить недоступним DribeListBox
Dir1.Enabled = False 'Робить недоступним DirListBox
End Sub

Private Sub Form_Load ()
Command1.Enabled = False 'Робить недоступною кнопку знаходженняприросту ВВП
T1.Enabled = False 'Робить недоступними текст. поля
T2.Enabled = False
T3.Enabled = False
T4.Enabled = False
Command2.Enabled = False 'Робить недоступною кнопку розрахунку maxприросту
Command3.Enabled = False 'Робить недоступною кнопку переходу в інформу
End Sub

. ДЛЯ ТРЕТЬОЇ ФОРМИ:

Dim maq (40) As Single
Dim mag (40) As Single
Dim ma (40) As Single
Dim mas (40) As Single
Dim maz (40) As Single
Dim mar (40) As Single
Dim maw (40) As Single
Dim buf1 As Single
Dim buf2 As Single
Dim buf3 As Single
Dim buf4 As Single
Dim buf5 As Single
Dim buf6 As Single
Dim buf As Single

Private Sub Command2_Click ()
For i = 1 To 32еєІ ± ц4іґфєІ ° ґцшхи84 ¶ ЄІ № јѕґцш84 »єи ¶ їыцшхы4ј4ц:»: 4жж>
|[?]$- виплачуються тільки ® $ 304 1
0жW ¶ 5oжZ4? Ьј