Природа южных тропических материков

Природа Южных материков зарождалась и на ранних стадиях развивалась тогда, когда эти континенты были единым блоком земной коры в составе Гондваны.

Глобальные проблемы человечества

По ходу развития цивилизации перед человечеством неоднократно возникали сложные проблемы, порою и планетарного характера.

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

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

Страница 4

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. А последующие строки записывают в него средние значения и после окончания записи закрывают файл.

Согласно заданию, следующие операции необходимо производить в другой форме. Поэтому создаем в проекте еще одну форму, для которой в окне свойств в графе Caption вводим значение ‘Определение темпов изменения ВВП, периода max прироста и сост. 50%’. Для того, чтобы во время работы программы можно было из первой формы перейти ко второй, в первой форме необходимо создать кнопку, которая обеспечивала бы этот переход. Создав командную кнопку, для нее в окне свойств в графе Caption установим значение ‘Кнопка перехода к следующему этапу программы’. Чтобы при нажатии на эту кнопку после запуска программы осуществлялся переход ко второй форме, необходимо в процедуру Command3_Click () ввести следующий код:

Form

1.

Hide

Form

2.

Show

Эти команды скроют первую форму и сделают видимой вторую форму.

Согласно заданию, во второй форме необходимо считать файл со средними значениями показателей. Для того, чтобы сделать это, надо, чтобы пользователь указал файл, в который записаны эти данные. Для этого используем элементы DriveListBox, DirListBox и FileListBox. Разместим их во второй форме рядом с меткой, объясняющей пользователю, что он должен указать файл со средними значениями. После того, как пользователь сделает это, необходимо считать данные из файла. Для этого создадим командную кнопку, для которой в окне свойств в графе Caption введем значение ‘Считывание данных из файла, определение ВВП и темпов его изменения’. Как видно из названия кнопки, с ее помощью мы будем определять размер ВВП и находить темпы его изменения, что также требуется в задании.

Для того, чтобы считать данные из файла, указанного пользователем, необходимо ввести в процедуру Command1_Click () следующий код:

Open File1 For Input As #1

For i = 1 To 8

Input #1, a1(i), a2(i), a3(i), a4(i), a5(i), a6(i)

L1.List(i - 1) = a1(i)

Next i

Close #1

Строка L1.List(i - 1) = a1(i)

обеспечивает вывод в список, размещенный во второй форме, значений ВВП.

Согласно заданию, после того, как значения ВВП будут считаны из файла, необходимо рассчитать темпы изменения ВВП. Чтобы определить темп изменения ВВП или его прирост, надо из значения ВВП, соответствующего последующему месяцу, вычесть значение ВВП в предыдущем месяце. Для рассчета темпов изменения ВВП введем в процедуру Command1_Click () следующий код:

j = 1

For i = 1 To 8

t(j) = a1(i + 1) - a1(i)

j = j + 1

Next i

For i = 1 To 7

L2.List(i - 1) = t(i)

Next i

Запись L2.List(i - 1) = t(i)

выводит во второй список, размещенный в форме, данные о приросте ВВП.

Согласно заданию, далее необходимо рассчитать период максимального прироста и период, дающий 50% прироста ВВП. Чтобы определить, какие это периоды, создадим во второй форме командную кнопку, для которой в окне свойств в графе Caption Установим значение ‘Нахождение периода max прироста и периода прироста в 50%’. Создадим 2 текстовых поля, первое из которых будет отображать размер максимального прироста ВВП, а второе – период такого прироста. Чтобы сделать эти текстовые поля недоступными для ввода информации во время работы программы, в процедуру Form_Load введем коды:

T1.Enabled = False

T2.Enabled = False

T1 и T2 – соответственно названия первого и второго текстовых полей.

Создадим 2 аналогичных текстовых поля для вывода значений прироста ВВП, составляющего 50%, и периода с таковым приростом ВВП.

В процедуру Command2_Click() введем код для нахождения периода и значения максимального прироста ВВП:

Max = 0

For i = 1 To 7

If t(i) > Max Then

Max = t(i)

p = i

End If

Next i

T1.Text = Max

Эта часть кода определяет значение максимального прироста и выводит его в первое текстовое поле. Переменная p является счетчиком, с помощью которого мы определяем период максимального прироста ВВП:

Страницы: 1 2 3 4 5 6 7 8 9

Статьи по географии:

Население
Более 1/2 населения Бельгии составляют фламандцы и около 2/5 – валлоны. Кроме того, в стране проживает около 700 тыс. лиц других национальностей – итальянцев, испанцев, немцев, поляков и др. Почти все верующее население страны – политики. Религиозность бельгийцев довольно велика, во всяком случае е ...

Территориальная организация полиграфической промышленности: социально-экономический анализ
В малой полиграфии доля государственного сектора за рассматриваемые годы сократилась на 10,2%. Удельный вес предприятий той или иной разновидности государственной формы собственности в общем числе предприятий, заявивших о себе в лицензионной службе Госкомпечати, снизился за то же время на 15,1%. За ...

Новые города: их реальный вклад в улучшение и усложнение урбанистической ситуации в стране
Противоречия советской урбанизации, порождающие острые проблемы на современном этапе, хорошо видны при анализе роли новых городов в системах расселения разного уровня. С одной стороны, эти города, составлявшие многие годы предмет гордости советской градостроительной науки и практики и отражавшие со ...

Разделы

Copyright © 2020 - All Rights Reserved - www.espara.ru