ГосударственныйУниверситетУправления
Им.Серго Орджоникидзе
Курсовойпроект
покомпьютернойподготовке
Выполниластудентка
Специальности«Мировая экономика»
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