дані по Японії. p> Потім у першій формі створюємо 7 елементів TextBox - текстових полів - за кількістю стовпців у вихідній таблиці. Над кожним текстовим полем розміщуємо елементи Label - мітки, містять назви кожного стовпця. У даному випадку це рік, розмір ВВП, ціни на нафту, розмір споживання нафти, розмір зовнішньоторговельного обороту, обсяг промислового виробництва і дохід на душу населення. У кожного текстового поля у вікні властивостей у графі DataSource встановлюємо значення Data1 , а в графі DataField - вибираємо назву того стовпця вихідної таблиці, який відображає дане текстове поле. Так у першому текстовому полі буде значення ' Рік ' , у другому - ' Розмір ВВП ' і т. д.
Таким чином, ми встановили зв'язок Visual Basic з таблицею в Microsoft Access. p> допомогою цієї зв'язку ми можемо здійснювати зчитування даних з таблиці для виконання необхідних операцій, передбачених завданням. При запуску програми в текстові поля будуть відображатися дані таблиці Microsoft Access, а, використовуючи стрілки на елементі Data1 , можна виробляти прокручування даних, так щоб вони послідовно з'являлися в текстових полях. Для того, щоб після запуску програми користувач не міг ввести в текстові поля ніяку інформацію, тобто для В«захистуВ» текстових полів від сторонніх записів, необхідно в процедуру Text1_Change () ввести наступний код:
Text1.Enabled = False
Аналогічні коди необхідно ввести в процедури для другого, третього і т. д. текстових полів. Це зробить текстові поля недоступними для введення інформації і перетворить їх на поля, що відображають дані про економічні показники. p> Згідно з завданням, необхідно обчислити середні значення даних по Японії за чотирирічні періоди, починаючи з 1960 року. Перш, ніж написати програму, що дозволяє здійснювати подібні операції, необхідно створити елемент управління, який буде відповідати за виконання цих операцій. У даному випадку найбільш наочним і зручним у використанні буде елемент 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) =...
