ступною кнопку переходу в ін форму
End Sub
В
Private Sub Command3_Click ()
Form2.Hide 'Приховує 2 форму
Form3.Show 'Показує 3 форму
Command1.Enabled = True 'Робить доступною кнопку рассчета приросту ВВП
End Sub
В
Private Sub Dir1_Change ()
File1 = Dir1
End Sub
В
Private Sub Drive1_Change ()
ChDrive Drive1
Dir1 = Drive1
ChDir Dir1
End Sub
В
Private Sub File1_Click ()
Label7.Visible = False ' Робить невидимою мітку з собщений
Command1.Enabled = True ' Робить доступною кнопку знаходження приросту ВВП
Drive1.Enabled = False ' Робить недоступним DribeListBox
Dir1.Enabled = False ' Робить недоступним DirListBox
End Sub
В
Private Sub Form_Load ()
Command1.Enabled = False ' Робить недоступною кнопку знаходження приросту ВВП
T1.Enabled = False 'Робить недоступними текст. поля
T2.Enabled = False
T3.Enabled = False
T4.Enabled = False
Command2.Enabled = False 'Робить недоступною кнопку розрахунку max приросту
Command3.Enabled = False 'Робить недоступною кнопку переходу в ін форму
End Sub
В· ДЛЯ ТРЕТЬОЇ ФОРМИ:
Dim maq (40) As Single
Dim mag (40) As Single
Dim ma (40) As Single
Dim mas (40) As Single
Dim maz (40) As Single
Dim mar (40) As Single
Dim maw (40) As Single
Dim buf1 As Single
Dim buf2 As Single
Dim buf3 As Single
Dim buf4 As Single
Dim buf5 As Single
Dim buf6 As Single
Dim buf As Single
В
Private Sub Command2_Click ()
For i = 1 To 32 'Висновок сортованих даних до списків
List1.List (i - 1) = mag (i)
List2.L...
