елемент управління, який буде відповідати за виконання цих операцій. У даному випадку найбільш наочним і зручним у використанні буде елемент CommandButton . Виділивши цей елемент, у вікні властивостей у графі Caption замінимо значення Command1 на ' Розрахунок середніх значень даних за 4-річні періоди, починаючи з 1960 року '. Після запуску програми натискання на цю кнопку буде приводити в дію механізм обчислення середніх значень даних, які будуть відображатися в текстових полях. p> Перш, ніж виконувати обчислення середніх значень, необхідно вважати дані з текстових полів, які їх містять. Для цього треба запустити цикл від 1 до 32 (кількість записів в кожному стовпці таблиці), який би вводив значення з текстових полів в масиви. Так як необхідно, щоб описані вище операції виконувалися при натисканні на кнопку, то в процедуру Command1_Click () введемо код:
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
i - змінна, mag (i), mas (i), ma (i), maq (i), maw (i), mar (i) і maz (i) - відповідно масиви зі значеннями року, розміру ВВП, ціни на нафту, розміру споживання нафти, розміру СОТ, обсягу промислового виробництва і розміром доходу на душу населення. Запис Data1.Recordset.MoveNext означає, що після виконання зчитування даних за перший рік Data1 пересуне дані в текстових полях на одну вперед і зчитування проводитиметься вже за наступний рік і т. д.
Але може статися так, що після запуску користувач здійснить натиснення один або кілька разів на елемент Data1 до того, як натиснути на командну кнопку. Це призведе до збою програми, тому що в даному випадку в коді, наведеному вище, запис, що знаходиться в текстовому полі буде сприйматися як перша, а так як записів всього 32, то це призведе до неможливості завершення циклу. Щоб уникнути цього, перед цим кодом помістимо рядок:
Data1.Recordset.MoveFirst
Ця запис забезпечить передвигание даних в текстових полях до першого запису перед виконанням зчитування. p> Для знаходження середніх значень даних за 4-річні періоди, необхідно суму значень за кожен рік з даного періоду розділити на кількість років у періоді, тобто в даному випадку - на 4. Тому в процедуру Command1_Click () введемо наступний код:
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) ...
