Реферат: Анализ экономических показателей Японии 1960-1992 гг Компьютерная подготовка в ГУУ 2 курс

ГосударственныйУниверситетУправления

Им.Серго Орджоникидзе


Курсовойпроект

покомпьютернойподготовке


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

Специальности«Мировая экономика»

IIкурса

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

РуководительАленичев А. В.


Москва

1998год

ЗАДАНИЕ

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


Общеезадание:

СоставитьсредствамиVisual Basic иMicrosoft Accessкомплекс программ, работающихв режиме диалогас пользователем, включая:

Алгоритм решения задачи

Таблицы Microsoft Access

Формы документов Visual Basic

Собственно программы.

Объяснительнаязаписка должнавключать:

Титульный лист

Задание на курсовой проект

Введение

Анализ постановки задачи

Алгоритм

Таблицы, формы, тексты программ и структуры файлов

Результаты решения задачи

Заключение

Список литературы

Оглавление.

Сроки выполнениякурсовогопроекта:

Срок представления проекта руководителю – 14 декабря 1998 года

Время защиты работы – 28 декабря 1998 года.


Практическоезадание:

Создатьтаблицу в MicrosoftAccess с полями:

Цена на нефть

Потребление нефти в Японии

Размер ВВП

Объем промышленного производства

Внешнеторговый баланс

Доход на душу населения

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

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

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

Разработатьформу и программув Visual Basic, сортирующуюданные по ценена нефть, ипосмотреть, есть ли зависимостьэтого параметрас темпами измененияразмера ВВП.

Проанализироватьполученныерезультатыи сделать выводы.


Введение


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

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

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

Вданном курсовомпроекте напримере данныхо Японии показанадинамика отдельныхэкономическихпоказателейи их взаимосвязь.

ВMicrosoft Access этиданные заносятсяв виде таблиц, отражающихстатистическиесведения оЯпонии за периодс 1960 по 1992 года.32-летний периодявляется достаточнымдля выявлениязакономерностейв динамике тогоили иного показателя, а также дляустановлениязависимостимежду показателями, если таковаясуществует.Данные по Япониивключают всебя:

размер внутреннего валового продукта, который является одним из самых распространенных показателей, характеризующих экономическое состояние страны;

величину цены на нефть за каждый год из 32-летнего периода;

размер потребление нефти в Японии, что также говорит о развитии и благосостояния общества в целом;

размер внешнеторгового оборота, отражающий ситуацию на внешнем рынке страны и дающий численную характеристику торговым операциям Японии с другими странами мира;

объем промышленного производства, характеризующий состояние экономики внутри страны;

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

Далее, с помощью VisualBasic проводитсяанализ имеющихсяданных, ихгруппировкапо признаку, указанномув задании, атакже нахождениесредних значенийданных зачетырехлетниепериоды, начинаяс 1960 года. Средниевеличины делаютболее удобнымсравнение ианализ информации, так как показываютопределеннуютенденцию визменении тогоили иного показателя.Затем, с помощьюсредств VisualBasic определяютсятемпы измененияпоказателейпо заданию, атакже находитсяпериод максимальногоприростаопределенногопоказателяи периоды, дающие50% прироста. Этопроводитсядля того, чтобыопределить, в каком периодеза 62 года прироствнутреннеговалового продуктабыл наибольшим, то есть в какойпериод экономикаЯпонии развиваласьнаиболее активно, чтобы впоследствиибыло возможновыявить причинытакого ростаи устранитьфакторы, препятствующиекак развитиюэкономики вцелом, так изамедляющиерост экономическихпоказателей в конкретнойобласти.

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

Для того, чтобы иметьвозможностьоперироватьданными о Японии, представленнымив таблице MicrosoftAccess, необходимо, чтобы эти данныемогли бытьотображеннымив Visual Basic.Это возможно, благодаря тому, что обе этипрограммы(Microsoft Accessи Visual Basic) являются продуктамикомпании Microsoft®, и Visual Basicпредполагаетвозможностьустановлениясвязи с данными, размещеннымив таблицахMicrosoft Access.

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

Имеютсяданные по Японииза период с1960 по 1992 года, представляющиесобой своднуютаблицу в MicrosoftAccess. Данныевзяты из статистическихсправочников.Для занесенияданных в MicrosoftAccess необходимосоздать новуюбазу данных, затем таблицув ней и последовательноввести всеимеющиесяданные по Япониив режиме конструктора(рис.1), заполняястроки с именамиполей и типомсоответствующихданных. Именаполей в данномслучае – названиеэкономическихпоказателейза 32-летний период, а так как вседанные числовые, то это будетотражено всоответствующихстроках с типомданных. По завершенииформированиямакета исходнойтаблицы, необходимооткрыть получившуюсятаблицу и ввестивсе имеющиесяданные за каждыйгод в соответствующиеграфы таблицы(рис.2).

/>
Таблицас исходнымиданными врежимеконструкторавыглядит следующимобразом: Рис. 1


Таблица, получившаясяпосле вводаданных о Японии, имеет следующийвид:


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

/>
Запрос врежиме конструкторабудет выглядетьследующимобразом: Рис.3


Готовый запросбудет иметьследующий вид:


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


В VisualBasic начинаемновый проект, выбирая в менюNew Fileпункт NewProject. Выделяемпервую формуи в окне Propertiesв графеCaption устанавливаемдля первойформы названиеСчитываниеданных и нахождениесредних значений, при этом имяпервой формы– Form1.

В первойформе создаемэлемент DataControlс именемData1.Вокне свойствв графе Captionустанавливаемназвание Исходныеданные.В графе Connect — значениеAccess.В графе DatabaseNameуказываемпуть к файлу, содержащемутаблицу MicrosoftAccess.В графе RecordSourceуказываемназвание таблицыMicrosoft Access, содержащейисходные данныепо Японии.

Затем впервой формесоздаем 7 элементовTextBox –текстовыхполей – по количествустолбцов висходной таблице.Над каждымтекстовым полемразмещаемэлементы Label– метки, содержащиеназвания каждогостолбца. В данномслучае это год, размер ВВП, цены на нефть, размер потреблениянефти, размервнешнеторговогооборота, объемпромышленногопроизводстваи доход на душунаселения. Укаждого текстовогополя в окнесвойств в графеDataSourceустанавливаемзначение Data1, а в графе DataField– выбираемназвание тогостолбца исходнойтаблицы, которыйотображаетданное текстовоеполе. Так в первомтекстовом полебудет значениеГод, во втором –РазмерВВПи т. д.

Такимобразом, мыустановилисвязь VisualBasic с таблицейв 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 i

i –переменная,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 32Step 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

Nexti

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)

Nexti

После запускапрограммы принажатии команднойкнопки в спискахпоявятся средниезначения данныхза 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


--PAGE_BREAK--

Строка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

EndIf

30 If pr = False Then

GoTo 10

Else

GoTo 200

End If

200 End Sub

Этопрограммасортировки, позволяющаярасположитьзначения ценына нефть повозрастанию, а остальныезначения –соответственноэтому.

Послепроведениясортировкиданных по ценена нефть, необходимовывести этисортированныеданные в списки.Для этого втретьей формесоздадим семьсписков (поколичествупоказателей), в которых будутотображатьсясортированныеданные. Надними разместимсемь меток сназваниямисоответствующихсписков: «Год»,«Размер ВВП»и т. д. Для отображенияв спискахсортированныхданных необходимосоздать в третьейформе вторуюкоманднуюкнопку, длякоторой в окнесвойств в графе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

Form2.Show длявторого переключателя.

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

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

Исходя изсоображенийлогики, можносделать некоторыепредварительныезаключения.Япония – странас высоким уровнемразвития, занимающаяодну из передовыхпозиций намировом рынке.Но, как известно, она испытываетнедостатокв ресурсах, имеющихся вее владении, поэтому вынужденаимпортироватьих из другихстран. Что касаетсянефти, котораякрайне важнадля любой страны, Япония закупаетее у различныхгосударств, в том числе иу России. Внутреннийваловой продуктвключает в себягосударственныерасходы на всепокупки ресурсов, а, значит, и нефти.И хотя можнопроследитьзависимостьмежду размеромВВП и величинойцены на нефть, делать выводыо прямой пропорциональностицены на нефтьразмеру ВВП, скорее всего, нельзя, так какнеобходимопринимать вовнимание множествопрочих факторов, оказывающихвлияние наэкономическоесостояниестраны, индикаторомкоторого являетсявнутреннийваловой продукт.А потому можносказать, что, вероятно, накаком-либонебольшомотрезке временибудет наблюдатьсяпрямая зависимостьцены на нефтьот размера ВВП, но возможнытакже периоды, где эта зависимостьбудет обратной. Для более полногоанализа необходимоиметь сведенияо большом количествеэкономическихпоказателейи приниматьво вниманиедаже такиефакторы, какситуация вобществе, войны, природныекатаклизмы, положение вдругих странахи во всем мирев целом.


АЛГОРИТМ


В/>водданных в массивыиз

т/>/>екстовыхполей

/>


/>

Вычислениесредних значений

данных и вводсредних

значенийв массивы

/>

/>


Вывод среднихзначений

данных всписки

/>


/>

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

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

пользователем

/>


/>

П/>/>ереходко второй форме

/>


/>

Считываниеданных из файла

/>


/>/>/>

НахождениеВВП, темпов его

измененияи вывод данных

в списки

/>

/>

Нахождениепериода max

п/>риростаи прироста в50%

/>


/>

Вывод в текстовыеполя

значенийи периодов

maxприроста ВВПи в 50%

/>/>

/>

Переход ктретьей форме

/>


/>

Сортировкаданных по

цене на нефть

/>


/>

Вывод сортированных

данных всписок

/>

/>

/>/>/>

/>/>

Переходк первой Переход ковторой

форме форме

/>/>

/>/>


В курсовомпроекте былиприведены кодыдля отдельныхэлементовуправления.Ниже даютсятексты программс комментариямидля более полноговосприятия.


ДЛЯ ПЕРВОЙ ФОРМЫ:

Dimmas(40) As Single

Dimmag(40) As Single

Dimma(40) As Single

Dimmaq(40) As Single

Dimmaz(40) As Single

Dimmar(40) As Single

Dim maw(40) As Single

Dimj, i As Integer

Dimh(10) As Single

Dimq(10) As Single

Dimw(10) As Single

Dimr(10) As Single

Dimp(10) As Single

Dimx(10) As Single


PrivateSub Command1_Click()

Data1.Recordset.MoveFirst 'Переходит кпервой строкеданных

MsgBox «Этакнопка выведетсредние значенияданных за 4-летниепериоды, начинаяс 1960 года!» Выдаетсообщение окнопке

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 'Переходитк следующейстроке данных

Nexti

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

Nexti

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)

Nexti

Dir1.Enabled = True ДелаетдоступнымDirListBox

Drive1.Enabled = TrueДелаетдоступнымDriveListBox

File1.Enabled = True ДелаетдоступнымFileListBox

Command1.Enabled = False 'Делаеткнопку нахожденияср. значенийнедоступной

Label14.Visible = TrueДелаетвидимой меткус сообщением

End Sub


PrivateSub 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)

Nexti

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)

Nexti

Close #1 'Закрываетфайл «data1»

Command2.Enabled = False'Делает кнопкузаписи данныхв файл недоступнойпосле записи

Command3.Enabled = True 'Делаетдоступнойкнопку переходав др. форму

EndSub


PrivateSub Command3_Click()

Form1.Hide 'Скрывает1 форму

Form2.Show 'Показывает2 форму

Command1.Enabled = True 'Делаетдоступнойкнопку нахождениясредних значений


EndSub

PrivateSub Dir1_Change()

File1 = Dir1 ОтображаетвFileListBox файлы, содержащиесяв DirListBox

EndSub


PrivateSub Drive1_Change()

ChDrive Drive1Меняетдиск

Dir1 = Drive1 Отображаетв DirListBoxкаталогидиска, указанногов DriveListBox

ChDir Dir1 Меняеткаталог

EndSub


PrivateSub File1_Click()

Command2.Enabled = True 'Делаеткнопку записиданных в файлдоступной

EndSub


PrivateSub 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!» 'Выдаетсообщение Выдает приветственноесообщение

EndSub


    продолжение
--PAGE_BREAK--

Private Sub Text1_Change()

Text1.Enabled = False 'Делаеттекстовое поленедоступным

EndSub


PrivateSub Text2_Change()

Text2.Enabled = False 'Делаеттекстовое поленедоступным

EndSub


PrivateSub Text3_Change()

Text3.Enabled = False 'Делаеттекстовое поленедоступным

EndSub


PrivateSub Text4_Change()

Text4.Enabled = False 'Делаеттекстовое поленедоступным

EndSub


PrivateSub Text5_Change()

Text5.Enabled = False 'Делаеттекстовое поленедоступным

EndSub


Private Sub Text6_Change()

Text6.Enabled = False 'Делаеттекстовое поленедоступным

EndSub


PrivateSub Text7_Change()

Text7.Enabled = False 'Делаеттекстовое поленедоступным

EndSub


ДЛЯ ВТОРОЙ ФОРМЫ:

Dim q(10) AsSingle

Dim t(10) AsSingle

Dim p As Integer

Dimper As Integer

Dim i, j AsInteger

Dim a1(50) AsSingle

Dim a2(10) AsSingle

Dim a3(10) AsSingle

Dim a4(10) AsSingle

Dim a5(10) AsSingle

Dim a6(10) AsSingle


Private SubCommand1_Click()

OpenFile1 For Input As #1 'Открываетфайл

Fori = 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 8

t(j)= a1(i + 1) — a1(i) 'Рассчетприроста ВВП

j = j + 1

Next i

Fori = 1 To 7 'Выводит данныео приросте всписок

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

Next i

Command1.Enabled= False 'Делаетнедоступнойкнопку выводаданных о приросте

Command2.Enabled= True 'Делаетдоступнойкнопку нахожденияmax прироста

End Sub


PrivateSub Command2_Click()

Max= 0 'Нахождениеmax прироста

For i = 1 To 7

If t(i) > MaxThen

Max = t(i)

p= i 'Счетчик

End If

Next i

T1.Text= Max 'Выводитзначение max приростав текст. поле

Ifp = 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 If

j = 1

For i = 1 To 8

q(j)= a1(i + 1) / a1(i) 'Рассчетотношения ВВПпоследующегопериода к ВВПпредыдущегопериода

j = j + 1

Next i

Fori = 1 To 7 'Находити выводит втекст. полепериод приростав 50%, если такойимеется

If q(i) = 1.5 Then

per= i 'Счетчик

T3.Text = q(i)

Else

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

T4.Text = «НЕТ»

End If

Next i

If per = 1 Then

T4.Text = «1964- 1967 гг.»

End If

Ifper = 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

Ifper = 7 Then

T4.Text = «1988- 1991 гг.»

End If

Command1.Enabled= False Делаетнедоступнойкнопку нахожденияВВП

Command2.Enabled= False 'Делаетнедоступнойкнопку рассчетаmax прироста

Command3.Enabled= True 'Делаетдоступнойкнопку переходав др. форму

End Sub


Private SubCommand3_Click()

Form2.Hide 'Скрывает2 форму

Form3.Show 'Показывает3 форму

Command1.Enabled= True 'Делает доступнойкнопку рассчетаприроста ВВП

End Sub


Private SubDir1_Change()

File1 = Dir1

End Sub


PrivateSub Drive1_Change()

ChDrive Drive1

Dir1 = Drive1

ChDir Dir1

End Sub


Private SubFile1_Click()

Label7.Visible= False Делаетневидимой меткус собщением

Command1.Enabled= True Делаетдоступнойкнопку нахожденияприроста ВВП

Drive1.Enabled= False ДелаетнедоступнымDribeListBox

Dir1.Enabled= FalseДелаетнедоступнымDirListBox

End Sub


Private SubForm_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()

Fori = 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

Command2.Enabled= False 'Делаетнедоступнойкнопку выводасортированныхданных

End Sub


Private Sub Command1_Click()

Command1.Enabled= False Делаетнедоступнойкнопку сортировки

MsgBox«Эта кнопкапроведет сортировкуданных по возрастаниюцены на нефть!» Выводсообщения

Command1.Enabled= True 'Делаетдоступнойкнопку выводасортированныхданных

Open«data1» For Input As #1 'Открываетфайл «data1»

Fori = 1 To 32 Считываетданные из файлав массивы

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

Next i

Close #1

10pr = 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

GoTo30 'Переходна 30 строку

Else

GoTo20 'Переходна 20 строку

End If

30 If pr = False Then

GoTo10 'Переходна 10 строку

Else

GoTo200 'Переходна 200 строку

End If

200 End Sub


Private Sub Form_Load()

Command2.Enabled= False 'Делаетнедоступнойкнопку выводасортированныхданных

End Sub


Private Sub Option1_Click()

MsgBox«Перейти кпервой форме?»Выдаетсообщение

Form3.Hide 'Скрывает3 форму

Form1.Show 'Показывает1 форму

Command1.Enabled= True 'Делаетдоступнойкнопку нахожденияср. значений

Command2.Enabled= True 'Делаетдоступнойкнопку записив файл

End Sub


Private Sub Option2_Click()

MsgBox«Перейти ковторой форме?» Выдаетсообщение

Form3.Hide 'Скрывает3 форму

Form2.Show 'Показывает2 форму

Command1.Enabled= True 'Делаетдоступнойкнопку нахождениятемпов измененияВВП

Command2.Enabled= True 'делаетдоступнойкнопку нахожденияmax прироста ВВП

End Sub


Нижеприводятсяформы, как онивыглядят врежиме проектирования, то есть до запускапрограммы.


ПЕРВАЯФОРМА

/>


ВТОРАЯФОРМА

/>


ТРЕТЬЯФОРМА


/>


Далееприводятсяформы в режимеRun, то естьпосле запускапрограммы.


ПЕРВАЯФОРМА

После рассчета средних значений данных за 4-летние периоды:

П/>
осле выбора файла и записи в него данных:


/>


ВТОРАЯФОРМА

После считывания данных, определения ВВП и темпов его изменения:

/>


После нахождения периода максимального прироста и прироста в 50%:

/>


ТРЕТЬЯФОРМА


1.Послепроведениясортировки:


/>


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


Файл, выбранный пользователем для записи средних значений данных:

0.8843492, 14.05, 1621.173, 2244, 49.9, 238652.5

1.250556, 14.425, 1693.65, 3841, 68.65, 260827.3

1.786277, 14.65, 1858.58, 6714.5, 79.575, 280061.8

2.117049, 14.675, 1966.193, 11439.5, 91.8, 248772.3

2.23297, 14.1, 2244.097, 17332, 110.6, 259894.3

2.364754, 17.275, 2533.115, 22487.75, 117.525, 242344.5

2.543809, 16.2, 2736.063, 27369.25, 123.875, 283233.3

3.258096, 17.025, 3509.732, 34186.75, 129.5, 389459.5


Вспомогательный файл, содержащий данные обо всех показателях:

1960,0.639305, 13.9, 1675.8, 228641, 45.8,1784

1961,0.89425, 13.8, 1604.68, 248690, 47.3, 2136

1962, 0.925417, 13.9, 1604.67, 269742, 50.6, 2341

1963, 1.078425, 14.6, 1599.54, 228589, 55.9, 2715

1964, 1.098361, 14.4, 1603.6, 260713, 62.1, 3118

1965, 1.116758, 14.3, 1709.31, 238643, 69.5, 3423

1966, 1.294576, 14.4, 1711.7, 278317, 72.2, 3999

1967, 1.49253, 14.6, 1749.99, 305310, 70.8, 4824

1968, 1.598053, 14.4, 1805.4, 285305, 74.9, 5407

1969, 1.703083, 15.1, 1845.5, 270136, 78.3, 6329

1970, 1.853208, 14.5, 1879.75, 268371, 80.7, 7246

1971, 1.990764, 14.6, 1903.67, 294670, 84.4, 7876

1972, 2.078247, 14.4, 1899.9, 263478, 91.6, 8972

1973, 2.095748, 15.2, 1956.87 ,240537 ,93.9 ,10694

1974, 2.099347, 14.6, 1940.14 ,235925, 95.6 ,12495

1975, 2.194853, 14.5, 2067.86 ,250537, 86.1 ,13597

1976, 2.157347, 14.5, 2194.66 ,235925, 120.4, 15134

1977, 2.19576, 14.7, 2542.8, 270537, 103.5, 16664

1978, 2.293102, 12.3, 2157.43 ,246942, 105.8, 18125

1979, 2.285671, 14.9, 2081.5, 262578, 112.7, 19405

1980, 2.319454, 15.7, 2518.64, 243670, 114.9, 20960

1981, 2.365859, 15.5, 2520.8, 237387, 115.3, 22081

1982, 2.376982, 22.1, 2487.35, 214535, 117.2, 23033

1983, 2.39672, 15.8, 2605.67, 250934, 122.7, 23877

1984, 2.403722, 16, 2636.81, 270762, 124.6, 25412

1985, 2.418689, 16.2, 2642.3, 273300, 120.5, 26926

1986, 2.430957, 16.7, 2689.94, 306617, 124.9, 27959

1987, 2.92187, 15.9, 2975.2, 315571, 125.5, 29180

1988, 2.897231, 16.8, 3015.75, 335559, 126.8, 30929

1989, 2.990416, 17.1, 4545, 378700, 130.1, 32978

1990, 3.418921, 17.3, 3203.58, 452271, 131.7, 35368

1991, 3.725814, 16.9, 3274.6, 464879, 129.4, 37472

1992, 3.780530, 17.6, 3332.48, 523851, 135.9, 39330


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

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


/>


Мур М., Фернандес Дж. Н. “ Изучи сам Visual Basic 4 сегодня” — Минск, 1997 г.

Энциклопедический словарь” – М., 1962 г.

Япония в цифрах”. Статистический справочник – М., 1967 г.

Япония”. Статистический ежегодник – М., 1960-1989

гг.


Оглавление


Задание на курсовой проект…………………….1

Введение………………………………………….2-3

Анализ постановки задачи…………………….3-4

Формирование таблицы в Microsoft Access…4-6

Формирование запроса в Microsoft Access…..7-8

Создание проекта в Visual Basic и установление

связис Microsoft Access………………………….9

Создание элементов управления и кодов к ним

В первой форме……………………………10-12

Во второй форме…………………………..13-16

В третьей форме……………………………17-20

Предварительный анализ………………………..20

Алгоритм………………………………………..21-22

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

Для первой формы………………………..23-26

Для второй формы………………………..26-29

Для третьей формы……………………….30-32

11.Внешнийвид форм в режимепроектирования:

Первой формы…………………………………33

Второй формы…………………………………34

Третьей формы………………………………..35

12.Внешнийвид форм в режимеRun:

Первой формы……………………………..36-37

Второй формы……………………………..38-39

Третьей формы……………………………….40

13.Структурафайлов……………………………40-41

14.Заключение……………………………………….42

15.Списоклитературы………………………………43


еще рефераты
Еще работы по информатике