ачення max приросту в текст. полі
If p = 1 Then 'Визначає період max приросту і виводить його в текст. полі
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
j = 1
For i = 1 To 8
q (j) = a1 (i + 1)/a1 (i) 'Розрахунок відносини ВВП подальшого періоду до ВВП попереднього періоду
j = j + 1
Next i
For i = 1 To 7 'Знаходить і виводить в текст. полі період приросту в 50%, якщо такий є
If q (i) = 1.5 Then
per = i 'Лічильник
T3.Text = q (i)
Else
T3.Text = "----------------------------"
T4.Text = "НІ"
End If
Next i
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
Command1.Enabled = False ' Робить недоступною кнопку знаходження ВВП
Command2.Enabled = False 'Робить недоступною кнопку розрахунку max приросту
Command3.Enabled = True 'Робить до...
