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

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

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

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

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

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

Страница 5

If p = 1 Then

T2.Text = "1964 - 1967 гг."

End If

If p = 2 Then

T2.Text = "1968 - 1971 гг."

End If

If p = 3 Then

T2.Text = "1972 - 1975 гг."

End If

If p = 4 Then

T2.Text = "1976 - 1979 гг."

End If

If p = 5 Then

T2.Text = "1980 - 1983 гг."

End If

If p = 6 Then

T2.Text = "1984 - 1987 гг."

End If

If p = 7 Then

T2.Text = "1988 - 1991 гг."

End If

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

Если прирост ВВП составляет 50%, это означает, что отношение значения ВВП последующего периода к значению ВВП предыдущего периода составляет 1.5. Поэтому для определения прироста ВВП в 50% и периода, дающего такой прирост, необходимо рассчитать отношение прироста ВВП последующего периода к предыдущему по всем периодам. Чтобы сделать это, введем в процедуру Command2_Click () следующий код:

j = 1

For i = 1 To 8

q(j) = a1(i + 1) / a1(i)

j = j + 1

Next i

Это введет в массив q(j) значения отношений прироста ВВП последующего периода к предыдущему. Для вычисления значения прироста ВВП, составляющего 50%, введем следующий код:

For i = 1 To 7

If q(i) = 1.5 Then

per = i

T3.Text = q(i)

Else

T3.Text = " ----------------------------"

T4.Text = "НЕТ"

End If

Next i

В данном коде переменная per является счетчиком, который позволит определить период прироста ВВП в 50%. Эта часть кода позволяет найти значение прироста ВВП в 50%, если таковое имеется, и вывести его в третье текстовое поле. В противном случае в третьем текстовом поле появится прочерк, а в четвертом поле, отражающем период данного прироста, появится надпись “нет”. Для определения периода, давшего прирост ВВП в 50%, введем следующий код:

If per = 1 Then

T4.Text = "1964 - 1967 гг."

End If

If per = 2 Then

T4.Text = "1968 - 1971 гг."

End If

If per = 3 Then

T4.Text = "1972 - 1975 гг."

End If

If per = 4 Then

T4.Text = "1976 - 1979 гг."

End If

If per = 5 Then

T4.Text = "1980 - 1983 гг."

End If

If per = 6 Then

T4.Text = "1984 - 1987 гг."

End If

If per = 7 Then

T4.Text = "1988 - 1991 гг."

End If

Эта часть кода определяет и выводит в четвертое текстовое поле период, в котором прирост ВВП составил 50%.

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

ЗАМЕТИМ, что до того, как все операции во второй форме будут осуществлены, перейти в третью форму будет невозможным из-за того, что в командные кнопки 1 и 2 введены коды, предусматривающие определенный порядок в использовании кнопок. Так в процедуру Form_Load () введен код, делающий недоступными все командные кнопки:

Command1.Enabled = False

Command2.Enabled = False

Command3.Enabled = Fa

lse

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

Command1.Enabled = True

После выполнения операций, предусмотренных кодом первой кнопки, вторая кнопка становится доступной, так как в процедуру Command1_Click () введен код:

Command2.Enabled = True

И так далее.

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

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

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

Эволюция [терминология и проблемы]
На данный момент термин “эволюция” используется либо в узком смысле - для описания процессов формирования и развития биологических систем, либо в самом широком смысле, когда речь идет вообще о появление новых свойств, определений, структурных образований. Естественно, что при использовании далее те ...

Минеральные ресурсы
Минеральными ресурсами принято называть полезные ископае­мые, извлеченные из недр. Полезные ископаемые — это природные минеральные вещества в земной коре, которые при данном состоя­нии развития техники могут быть с достаточным экономическим эффектом извлечены и использованы в народном хозяйстве в е ...

Изменение и расторжение договоров
В период действия договора в соответствии с законом стороны вправе по своему соглашению как изменить, так и расторгнуть его при условии, что иное не предусмотрено кодексом, другими законами или самим договором (ст. 450 ГК). При отсутствии соглашения по требованию одной из сторон изменение или расто ...

Разделы

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