• Гідрологія і Гідрометрія
• Господарське право
• Економіка будівництва
• Економіка природокористування
• Економічна теорія
• Земельне право
• Історія України
• Кримінально виконавче право
• Медична радіологія
• Методи аналізу
• Міжнародне приватне право
• Міжнародний маркетинг
• Основи екології
• Предмет Політологія
• Соціальне страхування
• Технічні засоби організації дорожнього руху
• Товарознавство продовольчих товарів

Private Sub CmdБуль_Click()

Form1.Caption = " Сортування "

Form1.Caption = Form1.Caption + " Бульбашка"

For i = 1 To 10

For j = i + 1 To 10

If A(i) < A(j) Then

Call Exchange(i, j)

End If

Next j

Next i

Call Print_Mas

End Sub

Private Sub Exchange(k As Integer, p As Integer)

Dim Вох As Integer

Вох = A(k)

A(k) = A(p)

A(p) = Вох

Переглядів: 362