一個無序整數(shù)數(shù)組，對它排序，使其前半部分都為奇數(shù)有序，后半部分為偶數(shù)有序。
基本想法：利用插入排序算法，對奇偶子序列分別插入排序。用兩個變量把整個數(shù)組分割為三個部分，第一個部分為奇數(shù)有序子序列，第二部分為偶數(shù)有序子序列，第三部分為未排序子序列。使用兩個變量進(jìn)行分割，mid 指向偶數(shù)有序子序列的一個元素，end1 指向未排序子序列（等待一個個插入前面的奇數(shù)有序子序列或偶數(shù)有序子序列）。

Const n=7
Dim a（-1To n） As Integer
Private Sub Form_Load （　　）
'隨機(jī)生成7個不重復(fù)的正整數(shù)到a

i

i

數(shù)組中。代碼略
End Sub
Private Sub Command1_Click （　　）
Dim mid As Integer,end1As Integer
Dim i As Integer,j As Integer,num As Integer
mid=0：end1=0
Do While end1＜=n

j=end1
If num Mod 2=1Then
Do While 
a（j）=a（j-1）
j=j-1
Loop
a（j）=num
mid=mid+1
Else
Do While a（j-1）＞num And j-1＞=mid
a（j）=a（j-1）
j=j-1
Loop
a（j）=num
End If
end1=end1+1
Loop
For i=0To n
   List1．AddItem Str（a（i））
Next i
End Sub