隨機生成n個大于等于1且小于等于n的不重復正整數，采用“數據塊交換”方式升序排序。數據塊交換方式如下：
在待處理的數據區間中，對相鄰且數據個數相等的數據塊進行處理。若數字i恰好在第i位置，則不做交換，否則按下列兩種情況處理。
情況A.待處理區間中，若數字i之前的數據個數小于等于其余數據個數，做一次交換可將數字i換到第i位置，如數字i=2時：

情況B.待處理區間中，若數字i之前的數據個數大于其余數據個數，操作如下：
◆奇數個數據：先將待處理區間中第1個數據排除，對其余數據整體做數據塊交換，再按情況A處理，如數字i=3時：

◆偶數個數據：先將待處理區間整體做數據塊交換，再按情況A處理，如數字i=4時：


（1）若數組a中數據為“4，5，1，2，3”，則第1次數據塊交換后數組a中數據依次為：

1，2，4，5，3

1，2，4，5，3

（2）實現上述功能的VB程序如下，請在橫線處填入合適的代碼。
ConstMaxn=30
Dima（1ToMaxn）AsInteger
Dimwz（1ToMaxn）AsInteger
'函數功能：數據塊[st1..edl]與后面數據塊交換（兩數據塊相鄰且個數相等）
FunctionkSwap（st1AsInteger,ed1AsInteger）AsString
DimiAsInteger,tAsInteger,n1AsInteger
nl=ed1-st1+1
Fori=①

stl to edl

stl to edl

t=a（i）：a（i）=a（i+n1）：a（i+nl）=t
t=wz（a（i））：wz（a（i））=wz（a（i+n1））：wz（a（i+nl））=t
Nexti
'將處理結果返回，代碼略.
EndFunction
PrivateSubCmdl_Click （　?。?br />DimnAsInteger,numAsInteger,iAsInteger,sAsString
n=Val（Text1.Text）
'隨機生成n個不重復正整數保存到a（1）到a（n）中，并在List1中顯示，代碼略.
Fori=1Ton
wz（a（i））=i
Nexti
Fori=1Ton-1
Ifi＜＞wz（i）Then
num=②

n-i+1

n-i+1

Ifwz（i）-i＜=num-（wz（i）-i）Then'按情況A處理
s=kSwap（i,wz（i）-1）：List1.AddItems
E1se
IfnumMod2=0Then
s=kSwap（i,i+num\2-1）：Listl.Addltens
Else
IfnumMod2=0Then
s=kSwap（i,i+num\2-1）：Listl.Addltems
Else
s=③

kSwap（i+1，i+num\2）

kSwap（i+1，i+num\2）

：Listl.Addltems
EndIf
i=i-1'數字i交換到第i位置的處理尚未完成
EndIf
EndIf
Nexti
EndSub