(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
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. p> Після обчислення середніх значень даних за 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)
Next i
Після запуску програми при натисканні командної кнопки у списках з'являться середні значення даних за 4-річні періоди, починаючи з 1960 року. p> Згідно з завданням, після розрахунку середніх значень, необхідно занести їх у файл. Для зручності користувача зробимо так, щоб він мав можливість сам вибирати той файл, в який будуть занесені середні значення. Для цього розмістимо в першій формі елементи 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 p> Ці команди приховають першу форму і зроблять видимої другу форму.
Згідно з завданням, у другій формі необхідно вважати файл зі середніми значеннями показників. Для того, щоб зробити це, треба, щоб користувач вказав файл, в який записані ці дані. Для цього використовуємо елементи DriveListBox, DirListBox і FileListBox . Розмістимо їх у другій формі поряд з міткою, що пояснює користувачеві, що він повинен вказати файл з середніми значеннями. Після того, як користувач зробить це, необхідно вважати дані з файлу. Для цього створимо командну кнопку, для якої у вікні влас...
