Предыдущая страница реферата | 3  4  5  6  7  8  9  10  11  12  13 | Следующая страница реферата

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
После того, как данные из вспомогательного файла будут считаны, необходимо провести их сортировку по цене на нефть. Это значит, что значения цены на нефть будут располагаться по возрастанию, а все остальные значения показателей будут отображаться соответственно этим значениям.

Для того, чтобы после запуска программы при нажатии кнопки происходила сортировка, необходимо в процедуру
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
3943QF VINFLS1QF VRBINF |QF ADJ3 |QF ADJ1
VI 130 41317
VI 130 41317
VI 130 41317 |QF ADJ3 |QF ADJ3 |QF ADJ1 |QF ADJ1VI 132 12263 !ЇЁвм |QF ADJ1
|QF ADJ1 |QF ADJ3VI 200 246 !Їмп­ЁVI 200 246 !Їмп­ЁЭто программа сортировки, позволяющая расположить значения цены на нефть по возрастанию, а остальные значения – соответственно этому.

После проведения сортировки данных по цене на нефть, необходимо вывести эти сортированные данные в списки. Для этого в третьей форме создадим семь списков (по количеству показателей), в которых будут отображаться сортированные данные. Над ними разместим семь меток с названиями соответствующих списков: «Год», «Размер ВВП» и т. д. Для отображения в списках сортированных данных необходимо создать в третьей форме вторую командную кнопку, для которой в окне свойств в графе 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)

Рекомендуем скачать другие рефераты по теме: реферат загрязнение, купить диплом высшее.



Предыдущая страница реферата | 3  4  5  6  7  8  9  10  11  12  13 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки