/b>
Після того, як дані з допоміжного файлу будуть лічені, необхідно провести їх сортування за ціною на нафту. Це значить, що значення ціни на нафту будуть розташовуватися за зростанням, а всі інші значення показників будуть відображатися відповідно до цих значень. 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
Щоб зробити доступною кнопку виведення сортованих даних після натискання кнопки сортування і недоступною саму кнопку сортування, в процедуру Command1_Click () введемо код:
Command2.Enabled = True
Command1.Enabled = False
Для того, щоб після запуску програми при натисканні на другу командну кнопку в третій формі сортовані дані відображалися в списках, необхідно в процедуру
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
На цьому операції, виконання яких передбачено завданням, закінчуються. Але може виникнути ситуація, коли користувачеві буде потрібно після виконання всіх дій у третій формі повернутися в першу або в другу форми. Для забезпечення можливості таких переходів, створимо в третій формі рамку (елемент управління Frame ), в якій розмістимо два елементи управління OptionButton . За допомогою цих перемикачів буде здійснюватися перехід в першу або в другу форми. Коди в них будуть аналогічні кодами в кнопках переходу від однієї форми до іншої:
Form3.Hide
Form1.Show для першого перемикача і
Form3.Hide
Form2.Show для другого перемикача.
Після написання необхідних кодів до всіх елементів управління, можна перейти до візуального оформлення форм, використовуючи такі властивості елементів управління, як BackColor, ForeColor, Font , щоб додати їм бажаний зовнішній вигляд. p> Згідно з завданням, після того, як будуть виконані вс...
