课件28张PPT。插 入 排 序5.3 排序算法的程序实现浙教版《算法与程序设计》第五章01part回 顾 旧 知排 序例：若将下列人物按其身高a(1 to 6)从低到高排123456 回 顾连 连 看例：若将下列人物按其身高a(1 to 6)从低到高排冒泡排序选择排序For i=1 to 5 k=i For j=i+1 to 6 If a(j)
k then t=a(j):a(j)=a(k):a(k)=t End if Next iFor i=1 to 5 For j=6 to i+1 step -1 If a(j)a(0) then a(j+1)=a(j) else exit for end if next j a(j+1)=a(0) Next i 插入排序（基本代码Do）For i = 2 to n a(0)=a(i) d Do while a(j)>a(0) a(j+1)=a(j) j=j-1 Loop a(j+1)=a(0) Next i 04part练习巩固例117.[加试题]有一种排序方法叫插入排序，它的基本思想是将一个数据插入到已经排好的有序数列中，从而得到一个新的、个数加1的有序数列。 小王编写了一个VB程序实现插入功能，功能如下：运行程序时，在列表框List1中显示排序前数据，单击“排序按钮”Command1，在列表框List2中显示这些数据按升序排序后的结果，程序运行效果如图例1Dim t As Integer, i As Integer Dim a(1 To 10) As Integer Private Sub Form_Load() For i = 1 To 10 a(i) = Int(Rnd * 90) + 10 List1.additem str(a(i)) Next i End Sub Private Sub Command1_Click() For i = To 10 If a(i) < a(i - 1) Then t = a(i) For j = i - 1 To 1 Step -1 If t > a(j) Then Exit For a Next j = t End If Next I For i = 1 To 10 List2.AddItem Str(a(i)) Next i End Sub 例1Dim t As Integer, i As Integer Dim a(1 To 10) As Integer Private Sub Form_Load() For i = 1 To 10 a(i) = Int(Rn ... ... 
