Метод пузырьковой сортировки: верен ли приложенный код - VB

Формулировка задачи:

Дано задание сортировка методом пузырька. Вот программа подскажите правильно ли она записанна. Спасибо

Dim m(10) As Single
Private Sub Command1_Click()
List1.Clear: List2.Clear
Cls
For i = 0 To 10
m(i) = Int(Rnd * 10)
List1.AddItem m(i)
Next i
End Sub
 
Private Sub Command2_Click()
For i = 0 To 9
For j = 0 To 8
If m(i) > m(j) Then
r = m(i): m(i) = m(j): m(j) = r
End If
Next j
Next i
For i = 0 To 9
List2.AddItem m(i)
Next i
End Sub

Решение задачи: «Метод пузырьковой сортировки: верен ли приложенный код»

textual
                            Листинг программы 
                        

                            Private Sub Command2_Click()
For i = 0 To 9
  For j = i + 1 To 10
    If m(i) > m(j) Then
      r = m(i): m(i) = m(j): m(j) = r
    End If
  Next j
Next i
For i = 0 To 10
  List2.AddItem m(i)
Next i
End Sub
                        

Оцени полезность:

14 голосов , оценка 3.571 из 5

Похожие ответы