недоступним
End Sub
В
Private Sub Text3_Change ()
Text3.Enabled = False 'Робить текстове поле недоступним
End Sub
В
Private Sub Text4_Change ()
Text4.Enabled = False 'Робить текстове поле недоступним
End Sub
В
Private Sub Text5_Change ()
Text5.Enabled = False 'Робить текстове поле недоступним
End Sub
В
Private Sub Text6_Change ()
Text6.Enabled = False 'Робить текстове поле недоступним
End Sub
В
Private Sub Text7_Change ()
Text7.Enabled = False 'Робить текстове поле недоступним
End Sub
В· ДЛЯ ДРУГОЇ ФОРМИ:
Dim q (10) As Single
Dim t (10) As Single
Dim p As Integer
Dim per As Integer
Dim i, j As Integer
Dim a1 (50) As Single
Dim a2 (10) As Single
Dim a3 (10) As Single
Dim a4 (10) As Single
Dim a5 (10) As Single
Dim a6 (10) As Single
В
Private Sub 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 'Закриває файл
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
Command1.Enabled = False 'Робить недоступною кнопку виведення даних про прирості
Command2.Enabled = True 'Робить доступною кнопку знаходження max приросту
End Sub
В
Private Sub Command2_Click ()
Max = 0 'Знаходження max приросту
For i = 1 To 7
If t (i)> Max Then
Max = t (i)
p = i 'Лічильник
End If
Next i
T1.Text = Max 'Виводить значення 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 рр.." ...
