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

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

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

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

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

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

Страница 10

Text2.Enabled = False 'Делает текстовое поле недоступным

End Sub

Private Sub Text3_Change()

Text3.Enabled = False 'Делает текстовое поле недоступным

End Sub

Private Sub Text4_Change()

Text4.Enabled = False 'Делает текстовое поле недоступным

End Sub

Private Sub Text5_Change()

Text5.Enabled = False 'Делает текстовое поле недоступным

End Sub

Private Sub Text6_Change()

Text6.Enabled = False 'Делает текстовое поле недоступным

End Sub

Private Sub Text7_Change()

Text7.Enabled = False 'Делает текстовое поле недоступным

End Sub

· ДЛЯ ВТОРОЙ ФОРМЫ:

Dim q(10) As Single

Dim t(10) As Single

Dim p As Integer

Dim per As Integer

Dim i, j As Integer

Dim a1(50) As Single

Dim a2(10) As Single

Dim a3(10) As Single

Dim a4(10) As Single

Dim a5(10) As Single

Dim a6(10) As Single

Private Sub 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 'Закрывает файл

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

Command1.Enabled = False 'Делает недоступной кнопку вывода данных о приросте

Command2.Enabled = True 'Делает доступной кнопку нахождения max прироста

End Sub

Private Sub Command2_Click()

Max = 0 'Нахождение max прироста

For i = 1 To 7

If t(i) > Max Then

Max = t(i)

p = i 'Счетчик

End If

Next i

T1.Text = Max 'Выводит значение max прироста в текст. поле

If p = 1 Then 'Определяет период max прироста и выводит его в текст. поле

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

j = 1

For i = 1 To 8

q(j) = a1(i + 1) / a1(i) 'Рассчет отношения ВВП последующего периода к ВВП предыдущего периода

j = j + 1

Next i

For i = 1 To 7 'Находит и выводит в текст. поле период прироста в 50%, если такой имеется

If q(i) = 1.5 Then

per = i 'Счетчик

T3.Text = q(i)

Else

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

T4.Text = "НЕТ"

End If

Next i

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

Command1.Enabled = False

Делает недоступной кнопку нахождения ВВП

Command2.Enabled = False 'Делает недоступной кнопку рассчета max прироста

Command3.Enabled = True 'Делает доступной кнопку перехода в др. форму

End Sub

Private Sub Command3_Click()

Страницы: 5 6 7 8 9 10 11 12 13

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

Промышленность и энергетика
Самую большую группу в структуре производства в Нидерландах образуют предприятия, выпускающие продовольственные товары, напитки и табачные изделия, на них приходится более 28% всего промышленного оборота страны, 22% оборота дают химические и нефтехимические компании. Доля электротехнических предпри ...

Экономико-географическая характеристика Юга США
Территория Соединенных Штатов Америки делится на три крупных экономических района: промышленный Север, бывший рабовладельческий Юг и колонизуемый Запад. Такое разделение в своё время выявил В. И. Ленин. В моей работе приведена экономико-географическая характеристика Юга. Эта территория в основном л ...

Типологические различия стран региона
По размеру территории. Крупные, от 1 до 4 млн. кв. км.: Индия (. 3,3 млн. км2). Средние, от 0,2 до 1,0 млн. кв. км.: Пакистан (796 тыс. км2), Афганистан (647 тыс км2) Малые, менее 0,2 млн. кв. км. (в том числе «микро»): Бутан(47 тыс. км2), Бангладеш(144 тыс. км2), Мальдивы(298 км2), Непал(147,2 тыс ...

Разделы

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