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 'Робить доступною кнопку переходу в ін форму
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.List (i - 1) = mas (i)
List3.List (i - 1) = ma (i)
List4.List (i - 1) = maq (i)
List5.List (i - 1) = maw (i)
List6.List (i - 1) = mar (i)
List7.List (i - 1) = maz (i)
Next i
Command2.Enabled = False 'Робить недоступною кнопку виведення сортованих даних
End Sub
В
Private Sub Command1_Click ()
Command1.Enabled = False ' Робить недоступною кнопку сортування
MsgBox "Ця кнопка проведе сортування даних за зростанням ціни на нафту! "' Висновок повідомлення
Command1.Enabled = True 'Робить доступною кнопку виведення сортованих даних
Open "data1" For Input As # 1 'Відкриває файл "Data1" <...
