Private Sub CmdПол_Буль_Click()
Form1.Caption = " Сортування "
Form1.Caption = Form1.Caption + " Бульбашка поліпшена "
Do
H = 0
For i = 1 To 9
If A(i) < A(i + 1) Then
Call Exchange(i, j)
H = 1
End If
Next i
Loop While H <> 0
Call Print_Mas
Не знайшли потрібну інформацію? Скористайтесь пошуком google:
|
|