Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс.
Категория реферата: Рефераты по информатике, программированию
Теги реферата: доклади, конспект урока изложения
Добавил(а) на сайт: Nabojwikov.
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 10 11 | Следующая страница реферата
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 –
ППППППППППППППППППxППППППППППППППППППППППППППППППППППППППППППППППППППППППППП
ПППППППППППППППППППППППППППППППППППППППППППППППППППППППППППППППППППППППППППП
ППППППППППППППrПППППППППППППППППППППППППППППППППППППППППППППППППППППППППППпе
ременная, 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)
List5.List(i - 1) = p(i)
List6.List(i - 1) = r(i)
List7.List(i - 1) = x(i)
Next i
После запуска программы при нажатии командной кнопки в списках появятся
средние значения данных за 4-летние периоды, начиная с 1960 года.
Согласно заданию, после рассчета средних значений, необходимо
занести их в файл. Для удобства пользователя сделаем так, чтобы он имел
возможность сам выбирать тот файл, в который будут занесены средние
значения. Для этого разместим в первой форме элементы 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. А последующие строки записывают в него
средние значения и после окончания записи закрывают файл.
Рекомендуем скачать другие рефераты по теме: реферат загрязнение, купить диплом высшее.
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 10 11 | Следующая страница реферата