= (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 () наст...
