П. Щоб визначити темп зміни ВВП або його приріст, треба із значення ВВП, відповідного Наступні місяці, відняти значення ВВП у попередньому місяці. Для рассчета темпів зміни ВВП введемо в процедуру Command1_Click () наступний код:
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
Запис L2.List (i - 1) = t (i) виводить у другий список, розміщений у формі, дані про приріст ВВП. p> Згідно з завданням, далі необхідно розрахувати період максимального приросту і період, що дає 50% приросту ВВП. Щоб визначити, які це періоди, створимо у другій формі командну кнопку, для якої в вікні властивостей у графі Caption Встановимо значення ' Знаходження періоду max приросту і періоду приросту в 50% ' . Створимо 2 текстових поля, перше з яких буде відображати розмір максимального приросту ВВП, а друге - Період такого приросту. Щоб зробити ці текстові поля недоступними для введення інформації під час роботи програми, в процедуру Form_Load введемо коди:
T1.Enabled = False
T2.Enabled = False
T1 і T2 - відповідно назви першого і другого текстових полів.
Створимо 2 аналогічних текстових поля для виведення значень приросту ВВП, що становить 50%, і періоду з таким приростом ВВП. p> У процедуру Command2_Click () введемо код для знаходження періоду і значення максимального приросту ВВП:
Max = 0
For i = 1 To 7
If t (i)> Max Then
Max = t (i)
p = i
End If
Next i
T1.Text = Max
Ця частина коду визначає значення максимального приросту і виводить його в перший текстове поле. Мінлива p є лічильником, за допомогою якого ми визначаємо період максимального приросту ВВП:
If p = 1 Then
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 рр...
