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

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

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

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

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

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

Страница 9

MsgBox "Эта кнопка выведет средние значения данных за 4-летние периоды, начиная с 1960 года!"

Выдает сообщение о кнопке

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

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

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

Dir1.Enabled = True

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

DirListBox

Drive1.Enabled = True

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

DriveListBox

File1.Enabled = True

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

FileListBox

Command1.Enabled = False 'Делает кнопку нахождения ср. значений недоступной

Label14.Visible = True

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

End Sub

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

Open "data1" For Output As #1 'Создает вспомогательный файл "data1"

For i = 1 To 32 'Записывает в него все данные

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

Next i

Close #1 'Закрывает файл "data1"

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

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

End Sub

Private Sub Command3_Click()

Form1.Hide 'Скрывает 1 форму

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

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

End Sub

Private Sub Dir1_Change()

File1 = Dir1

Отображает в

FileListBox

файлы, содержащиеся в

DirListBox

End Sub

Private Sub Drive1_Change()

ChDrive Drive1 ‘Меняет диск

Dir1 = Drive1 ‘Отображает в

DirListBox

каталоги диска, указанного в

DriveListBox

ChDir Dir1

Меняет каталог

End Sub

Private Sub File1_Click()

Command2.Enabled = True 'Делает кнопку записи данных в файл доступной

End Sub

Private Sub Form_Load()

Label14.Visible = False

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

Dir1.Enabled = False ‘Делает недоступным

DirListBox

Drive1.Enabled = False ‘Делает недоступным

DriveListBox

File1.Enabled = False

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

FileListBox

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

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

MsgBox "Привет! Добро пожаловать в Visual Basic!" 'Выдает сообщение

Выдает приветственное сообщение

End Sub

Private Sub Text1_Change()

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

End Sub

Private Sub Text2_Change()

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

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

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

Ре­ли­ги­оз­ная жизнь в Мо­ск­ве
Ре­ли­ги­оз­ная жизнь мо­ск­ви­чей, ее кон­фес­сио­наль­ное раз­но­об­ра­зие яв­ля­ет­ся от­ра­же­ни­ем пе­ст­ро­ты на­цио­наль­но­го со­ста­ва жи­те­лей го­ро­да как в по­шлом, так и в на­стоя­щем. В Мо­ск­ве дей­ст­ву­ет бо­лее 500 раз­лич­ных ре­ли­ги­оз­ных ор­га­ни­за­ций и цен­тров, из них ок ...

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

Разделы

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