наступного періоду до попереднього. Для обчислення значення приросту ВВП, що становить 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%. p> Згідно з завданням, наступна частина роботи повинна виконуватися в інший, третій формі. Тому в другій формі необхідно створити командну кнопку, що дозволяє перейти до третьої формі після виконання всіх необхідних операцій в другій формі. Спочатку створимо ще одну форму в нашому проекті і в вікні властивостей у графі 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 () Необхідно ввести наступний код:
Form2.Hide
Form3.Show
Цей код приховує другу форму і робить видимої третю форму.
У третій формі, згідно із завданням, необхідно провести сортування даних про Японії за ціною на нафту. Для цього необхідно, по-перше, вважати дані, які будуть сортуватися. Для цього в першій формі в процедуру Command2_Click () введемо код, що дозволяє зчитувати дані з текстових полів і заносити їх у допоміжний файл, названий 'data1' :
Open "data1" For Output As # 1
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
Перш ніж проводити сортування даних, необхідно вважати їх з допоміжного файлу. Для цього створимо в третій формі командну кнопку з назвою 'Сортування даних за ціною на нафту' і в процедуру Command1_Click () введемо наступний код:
Open & q uot; data1 "For Input As # 1
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 <...
