.."
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) значення відносин приросту ВВП наступного періоду до попереднього. Для обчислення значення приросту ВВП, що становить 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> Згідно з зав...
