зати, що, ймовірно, на якому-небудь невеликому відрізку часу буде спостерігатися пряма залежність ціни на нафту від розміру ВВП, але можливі також періоди, де ця залежність буде зворотною. Для більш повного аналізу необхідно мати відомості про велику кількість економічних показників і приймати до уваги навіть такі фактори, як ситуація в суспільстві, війни, природні катаклізми, становище в інших країнах і в усьому світі в цілому. <В
АЛГОРИТМ
В
В В
Введення даних в масиви з
текстових полів
В
В
Обчислення середніх значень
даних і введення середніх
значень в масиви
В
В
Висновок середніх значень
даних до списків
В
В
Запис середніх значень в
файл, вибраний
користувачем
В
В
Перехід до другій формі
В
В
Зчитування даних з файлу
В
В
Знаходження ВВП, темпів його
зміни і виведення даних
до списків
В
В
Знаходження періоду 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 року! " ' ...
