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

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

цене на нефть

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

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

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

второй

форме

форме

В курсовом проекте были приведены коды для отдельных элементов

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

восприятия.

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

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.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

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

For i = 1 To 8 CB†’…аЙБ~ПЛ?"НЇэ-!лГ1‹“2^–

†И^Е«ъ$…Ф&зl[?]…~C0ЖД‚бўпвжb[pic]7„›?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 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

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 If

j = 1

For i = 1 To 8

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

ВВП предыдущего периода

j = j + 1

Next i

For i = 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

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жж›[pic]

|[?]$-[pic]ЁбЄ®­­$304 1

0жW 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

¤ЁвҐ«Ё§ ¬ҐбвЁвҐ«ЁжW»фєујцш>¶5oжZ4?ьјµѕґ4ї±ѕхју±хѕєЅ4хєу±цґ±ёєхцј4ј4ч»фґ¶ї±№ј

ы:4›±ф±»чцґ№я4»єсєІј±4»є4і¶чуґ№јъ4хїє¶ґ46»фєфєујцш6494»ф±°хѕґія¶ґцш4уцє9ї:4ј

46»фєујцш6494»ф±°№ґі№ґуґцш84іґфґ№±±4є»ф±°±їыцш4уцє9цє4јїј4ѕє·є9цє4№ґ4ѕґ'Пере

ход на 30 строку

Else

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

End If

30 If pr = False Then

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

Else

GoTo 200 'Переход на 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, то есть после запуска программы.

ПЕРВАЯ ФОРМА

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

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

ВТОРАЯ ФОРМА

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

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

ТРЕТЬЯ ФОРМА

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

Чтобы убедиться, что в процессе выполнения программ данные

действительно записываются в файл, ниже показана структура файлов,

использованных в проекте:

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

2.

і°єфє¶±№№яЅ64хч·чµє4фґі·є¶єф№є±84ґ4є4№ґїє·ґс4уґэ±4ч»єёј№ґъц4¶4°±їє¶єЅ8Вспо

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

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

После подсчета темпов изменения ВВП, можно посмотреть, существует ли

взаимосвязь между этим показателем и ценой на нефть. Проследив динамику

цены на нефть, мы увидим, что прямой зависимости не существует. В некоторые

периоды увеличение темпа роста ВВП сопровождалось увеличением цены на

нефть, в некоторые – наоборот вело к уменьшению цены на нефть. Это

подтверждает правильность предварительных заключений, сделанных до

рассчетов, о том, что не существует прямой зависимости размера ВВП и

величины цены на нефть, то есть большую роль играют прочие неучтенные

факторы.

В заключении еще раз необходимо сказать о важности подобных

статистических исследований для анализа экономической ситуации отдельной

страны, а также для выявления закономерностей в динамике того или иного

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

национальной и мировой экономики.

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

1997 г.

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

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

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

гг.

Оглавление

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Страницы: 1, 2, 3