Після того, як дані з допоміжного файлу будуть лічені, необхідно провести їх сортування за ціною на нафту. Це значить, що значення ціни на нафту будуть розташовуватися за зростанням, а всі інші значення показників будуть відображатися відповідно до цих значень. p> Для того, щоб після запуску програми при натисканні кнопки відбувалася сортування, необхідно в процедуру
Command1 _Click () ввести наступний код:
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
Else
GoTo 20
End If
30 If pr = False Then
GoTo 10
Else
GoTo 200
End If
200 End Sub
Це програма сортування, що дозволяє розташувати значення ціни на нафту за зростанням, а інші значення - відповідно цьому. p> Після проведення сортування даних за ціною на нафту, необхідно вивести ці сортовані дані до списків. Для цього в третій формі створимо сім списків (за кількістю показників), в яких будуть відображатися сортовані дані. Над ними розмістимо сім міток з назвами відповідних списків: «гкВ», В«Розмір ВВПВ» і т. д. Для відображення в списках сортованих даних необхідно створити в третій формі другу командну кнопку, для якої у вікні властивостей у графі Caption встановимо значення ' Висновок сортованих даних '. Щоб зробити цю кнопку недоступною до проведення сортування, в процедуру Form _ Load () додамо код:
Command2.Enabled = False
Щоб зробити доступною кнопку виведення сортованих даних після натиска...
