ist (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"
For i = 1 To 32 Зчитує дані з файлу в масиви
Input # 1, mag (i), mas (i), ma (i), maq (i), maw (i), mar (i), maz (i)
Next i
Close # 1
10 pr = True 'Сортування за зростанням ціни на нафту
i = 1
20 If ma (i)> ma (i + 1) Then
buf = ma (i)
buf1 = mag (i)
buf2 = mas (i)
buf3 = maq (i)
buf4 = maw (i)
buf5 = mar (i)
buf6 = maz (i)
ma (i) = ma (i + 1)
mag (i) = mag (i + 1)
mas (i) = mas (i + 1)
maq (i) = maq (i + 1)
maw (i) = maw (i + 1)
mar (i) = mar (i + 1)
maz (i) = maz (i + 1)
ma (i + 1) = buf
mag (i + 1) = buf1
mas (i + 1) = buf2
maq (i + 1) = buf3
maw (i + 1) = buf4
mar (i + 1) = buf5
maz (i + 1) = buf6
pr = False
End If
i = i + 1
If i = 32 Then
GoTo 30 'Перехід на 30 рядок
Else
GoTo 20 'Перехід на 20 рядок
End If
30 If pr = False Then
GoTo 10 'Перехід на 10 рядок
Else
GoTo 200 'Перехід на 200 рядок
End If
200 End Sub
В
P...
