недоступним
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 'Виводить зн...
