тивостей у графі Caption введемо значення ' Зчитування даних з файлу, визначення ВВП і темпів його зміни ' . Як видно з назви кнопки, з її допомогою ми будемо визначати розмір ВВП і знаходити темпи його зміни, що також потрібно в завданні. p> Для того, щоб вважати дані з файлу, вказаного користувачем, необхідно ввести в процедуру Command1_Click () наступний код:
Open File1 For Input As # 1
For i = 1 To 8
Input # 1, a1 (i), a2 (i), a3 (i), a4 (i), a5 (i), a6 (i)
L1.List (i - 1) = a1 (i)
Next i
Close # 1
Рядок L1.List (i - 1) = a1 (i) забезпечує висновок у список, розміщений у другій формі, значень ВВП. p> Згідно з завданням, після того, як значення ВВП будуть лічені з файлу, необхідно розрахувати темпи зміни ВВП. Щоб визначити темп зміни ВВП або його приріст, треба із значення ВВП, відповідного Наступні місяці, відняти значення ВВП у попередньому місяці. Для рассчета темпів зміни ВВП введемо в процедуру 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 рр.."
End If
If p = 7 Then
T2.Text = "1988 - 1991 рр.."
End If
Ця частина коду аналізує значення змінної p і, в залежно від її значення виводить в друге текстове поле дані про період максимального приросту. p> Якщо приріст ВВП становить 50%, це означає, що ставлення значення ВВП наступного періоду до значення ВВП попереднього періоду становить 1.5. Тому для визначення приросту ВВП в 50% і періоду, що дає такий приріст, необхідно розрахувати відношення приросту ВВП наступного періоду до попереднього по всіх періодах. Щоб зробити це, введемо в процедуру Command2_Click () наступний код:
j = 1
For i = 1 To 8
q (j) = a1 (i + 1)/a1 (i)
j = j + 1
Next i
Це введе в масив q (j) значення відносин приросту ВВП...
