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

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

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

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

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

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

Страница 11

Form2.Hide 'Скрывает 2 форму

Form3.Show 'Показывает 3 форму

Command1.Enabled = True ' Делает доступной кнопку рассчета прироста ВВП

End Sub

Private Sub Dir1_Change()

File1 = Dir1

End Sub

Private Sub Drive1_Change()

ChDrive Drive1

Dir1 = Drive1

ChDir Dir1

End Sub

Private Sub File1_Click()

Label7.Visible = False

Делает невидимой метку с собщением

Command1.Enabled = True

Делает

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

Drive1.Enabled = False

Делает недоступным

DribeListBox

Dir1.Enabled = False

Делает недоступным

DirListBox

End Sub

Private Sub Form_Load()

Command1.Enabled = False ‘Делает недоступной кнопку нахождения прироста ВВП

T1.Enabled = False 'Делает недоступными текст. поля

T2.Enabled = False

T3.Enabled = False

T4.Enabled = False

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

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

End Sub

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

Dim maq(40) As Single

Dim mag(40) As Single

Dim ma(40) As Single

Dim mas(40) As Single

Dim maz(40) As Single

Dim mar(40) As Single

Dim maw(40) As Single

Dim buf1 As Single

Dim buf2 As Single

Dim buf3 As Single

Dim buf4 As Single

Dim buf5 As Single

Dim buf6 As Single

Dim buf As Single

Private Sub Command2_Click()

For

i

= 1

To

32 'Вывод сортированных данных в списки

List1.List(i - 1) = mag(i)

List2.List(i - 1) = mas(i)

List3.List(i - 1) = ma(i)

List4.List(i - 1) = maq(i)

List5.List(i - 1) = maw(i)

List6.List(i - 1) = mar(i)

List7.List(i - 1) = maz(i)

Next

i

Command

2.

Enabled

=

False

'Делает недоступной кнопку вывода сортированных данных

End Sub

Private Sub Command1_Click()

Command

1.

Enabled

=

False

Делает недоступной кнопку сортировки

MsgBox

"Эта кнопка проведет сортировку данных по возрастанию цены на нефть!" ‘

Вывод сообщения

Command

1.

Enabled

=

True

'Делает доступной кнопку вывода сортированных данных

Open "data1" For Input As #1 'Открывает файл "data1"

For

i

= 1

To

32 Считывает данные из файла в массивы

Input #1, mag(i), mas(i), ma(i), maq(i), maw(i), mar(i), maz(i)

Next

i

Close

#1

10

pr

=

True

'Сортировка по возрастанию цены на нефть

i = 1

20 If ma(i) > ma(i + 1) Then

buf = ma(i)

buf1 = mag(i)

buf2 = mas(i)

buf3 = maq(i)

buf4 = maw(i)

buf5 = mar(i)

buf6 = maz(i)

ma(i) = ma(i + 1)

mag(i) = mag(i + 1)

mas(i) = mas(i + 1)

maq(i) = maq(i + 1)

maw(i) = maw(i + 1)

mar(i) = mar(i + 1)

maz(i) = maz(i + 1)

ma(i + 1) = buf

mag(i + 1) = buf1

mas(i + 1) = buf2

maq(i + 1) = buf3

maw(i + 1) = buf4

mar(i + 1) = buf5

maz(i + 1) = buf6

pr = False

End If

i = i + 1

If i = 32 Then

GoTo 30 'Переход на 30 строку

Else

GoTo 20 'Переход на 20 строку

End If

30 If pr = False Then

GoTo

10 'Переход на 10 строку

Else

GoTo

200 'Переход на 200 строку

End If

200 End Sub

Private Sub Form_Load()

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

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

Природа
Рельеф местности. Турция преимущественно горная страна, где мощные окраинные хребты окружают высокое внутреннее плоскогорье, узкие равнины занимают территорию на периферии. Выделяют 5 орографических областей. Причерноморье (Понтийские горы). В рельефе доминируют Понтийские горы (хребты Кюре и Илгаз ...

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

История
На территории современной Мексики находились одни из наиболее развитых цивилизаций Западного полушария. Первой цивилизацией было государство ольмеков, просуществовавшее с 1500 по 600 год до н.э. Культура майя достигла своего расцвета около VI века н.э. Еще одной цивилизацией было государство воинст ...

Разделы

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