Page 102 - 4788

Приклад: Скласти програму сортування масиву
Модуль:
Option Base 1
Public d(5) As Integer
Текст програми
Private Sub Command1_Click()
Print " Заданий масив"
For i = 1 To 5
d(i) = 6 - i
Print d(i)
Next i
For j = 1 To 5
For i = 1 To 4
If d(i) > d(i + 1) Then c = d(i): d(i) = d(i + 1): d(i + 1) =
c
Next i
Next j
Print " Масив після сортування"
For i = 1 To 5
Print d(i)
Next i
End Sub

Рисунок 13.2 – Результат виконання прогами

100