/p>
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 ()
Command2.Enabled = False 'Робить недоступною кнопку виведення сортованих даних
End Sub
В
Private Sub Option1_Click ()
MsgBox "Перейти до першій формі? "' Видає повідомлення
Form3.Hide 'Приховує 3 форму
Form1.Show 'Показує 1 форму
Command1.Enabled = True 'Робить доступною кнопку знаходження порівн. значень
Command2.Enabled = True 'Робить доступною кнопку запису в файл
End Sub
В
Private Sub Option2_Click ()
MsgBox "Перейти до другий формі? "' Видає повідомлення
Form3.Hide 'Приховує 3 форму
Form2.Show 'Показує 2 форму
Command1.Enabled = True 'Робить доступною кнопку знаходження темпів зміни ВВП
Command2.Enabled = True 'робить доступною кнопку знаходження max приросту ВВП
End Sub
Нижче наводяться форми, як вони виглядають в режимі проектування, тобто до запуску програми.
ПЕРША ФОРМА
p> ДРУГА ФОРМА
p> ТРЕТЯ ФОРМА
p> Далі наводяться форми в режимі Run, тобто після запуску програми. <В
ПЕРША ФОРМА
1. Після рассчета середніх значень даних за 4-річні періоди:
2.
Після вибору файлу і запису в нього даних:
В
p> ДРУГА ФОРМА
1. Після зчитування даних, визначення ВВП і темпів його зміни:
p> 2. Після знаходження періоду максимального приросту і приросту в 50%:
p> ТРЕТЯ ФОРМА
1.После проведення сортування:
p> Щоб переконатися, що в процесі виконання програм дані дійсно записуються у файл, нижче показана структура файлів, використаних у проекті:
1. Файл, вибраний користувачем для запису середніх значень даних:
0.8843492, 14.05, 1621.173, 2244, 49.9, 238652.5
1.250556, 14.425, 1693.65, 3841, 68.65, 260827.3
1.786277, 14.65, 1858.58, 6714.5, 79.575, 280061.8
2.117049, 14.675, 1966.193, 11439.5, 91.8, 248772.3
2.23297, 14.1, 2244.097, 17332, 110.6, 259894.3
2.364754, 17.275, 2533.115, 22487.75, 117.525, 242344.5
2.543809, 16.2, 2736.063, 27369.25, 123.875, 283233.3
3.258096, 17.025, 3509.732, 34186.75, 129.5, 389459.5
2. Допоміжний файл, щ...
