'进行插入法排序
For i = 2 To 10
For j = 1 To i - 1
If a(j) >= a(i) Then
k = a(i)
For l = i To j + 1 Step -1
a(l) = a(l - 1)
Next l
a(j) = k
End If
Next j
Next i
For i = 2 To 10
For j = 1 To i - 1
If a(j) >= a(i) Then
k = a(i)
For l = i To j + 1 Step -1
a(l) = a(l - 1)
Next l
a(j) = k
End If
Next j
Next i
k = a(i)
For j = 1 To i - 1
If k < a(j) Then
For l = i To j + 1 step -1
a(l) = a(l - 1)
Next
a(j) = k
Exit For
End If
Next
Next
运行正确