і необхідні операції в третій формі, треба подивитися, чи існує залежність між ціною на нафту і темпами зміни розміру внутрішнього валового продукту. p> Виходячи з міркувань логіки, можна зробити деякі попередні висновки. Японія - країна з високим рівнем розвитку, що займає одну з передових позицій на світовому ринку. Але, як відомо, вона відчуває нестачу в ресурсах, наявних в її володінні, тому змушена імпортувати їх з інших країн. Що стосується нафти, яка вкрай важлива для будь-якої країни, Японія купує її у різних держав, у тому числі і у Росії. Внутрішній валовий продукт включає в себе державні витрати на всі покупки ресурсів, а, значить, і нафти. І хоча можна простежити залежність між розміром ВВП і величиною ціни на нафту, робити висновки про прямий пропорційності ціни на нафту розміром ВВП, швидше за все, не можна, так як необхідно брати до уваги безліч інших факторів, що впливають на економічний стан країни, індикатором якого є внутрішній валовий продукт. А тому можна сказати, що, ймовірно, на якому-небудь невеликому відрізку часу буде спостерігатися пряма залежність ціни на нафту від розміру ВВП, але можливі також періоди, де ця залежність буде зворотною. Для більш повного аналізу необхідно мати відомості про велику кількість економічних показників і приймати до уваги навіть такі фактори, як ситуація в суспільстві, війни, природні катаклізми, становище в інших країнах і в усьому світі в цілому. <В
АЛГОРИТМ
В
В В
Введення даних в масиви з
текстових полів
В
В
Обчислення середніх значень
даних і введення середніх
значень в масиви
В
В
Висновок середніх значень
даних до списків
В
В
Запис середніх значень в
файл, вибраний
користувачем
В
В
Перехід до другій формі
В
В
Зчитування даних з файлу
В
В
Знаходження ВВП, темпів його
зміни і виведення даних
до списків
В
В
Знаходження періоду max p align=center> приросту і приросту в 50%
В
В
Висновок в текстові поля
значень і періодів
max приросту ВВП і в 50%
В
В
Перехід до третьої формі
В
В
Сортування даних по
ціні на нафту
В
В
Висновок сортованих
даних до списку
В
В
Перехід до першої Перехід до другий
формі формі
В
В
У курсовому проекті були наведені коди для окремих елементів управління. Нижче даються тексти програм з коментарями для більш повного сприйняття.
В
В· ДЛЯ ПЕРШОЇ ФОРМИ:
Dim mas (40) As Single
Dim mag (40) As Single
Dim ma (40) As Single
Dim maq (40) As Single
Dim maz (40) As Single
Dim mar (40) As Single
Dim maw (40) As Single
Dim j, i As Integer
Dim h (10) As Single
Dim q (10) As Single
Dim w (10) As Single
Dim r (10) As Single
Dim p (10) As Single
Dim x (10) As Single
В
Private Sub Command1_Click ()
Data1.Recordset.MoveFirst 'Переходить до першого рядка даних
MsgBox "Ця кнопка виведе середні значення даних за 4-річні періоди, починаючи з 1960 року! " ' Видає повідомлення про кнопку '
For i = 1 To 32 'Введення даних в масиви з текстових полів
mag (i) = Text1.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 ...
