Реферат: Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс.

Text1.Enabled = False

Аналогичные коды необходимо ввести в процедуры для второго, третьего и т. д. текстовых полей. Это сделает текстовые поля недоступными для ввода информации и превратит их в поля, отображающие данные об экономических показателях.

Согласно заданию, необходимо вычислить средние значения данных по Японии за четырехлетние периоды, начиная с 1960 года. Прежде, чем написать программу, позволяющую совершать подобные операции, необходимо создать элемент управления, который будет отвечать за исполнение этих операций. В данном случае наиболее наглядным и удобным в использовании будет элемент CommandButton . Выделив этот элемент, в окне свойств в графе Caption заменим значение Command1 на ‘ Расчет средних значений данных за 4-летние периоды, начиная с 1960 года ’ . После запуска программы нажатие на эту кнопку будет приводить в действие механизм вычисления средних значений данных, которые будут отображаться в текстовых полях.

Прежде, чем выполнять вычисление средних значений, необходимо считать данные из текстовых полей, которые их содержат. Для этого надо запустить цикл от 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

Эта запись обеспечит передвигание данных в текстовых полях к первой записи перед выполнением считывания.

Для нахождения средних значений данных за 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) = (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.

После вычисления средних значений данных за 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)