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

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

◆偶數(shù)個(gè)數(shù)據(jù)：先將待處理區(qū)間整體做數(shù)據(jù)塊交換，再按情況A處理，如數(shù)字i=4時(shí)：


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

1，2，4，5，3

1，2，4，5，3

（2）實(shí)現(xiàn)上述功能的VB程序如下，請?jiān)跈M線處填入合適的代碼。
ConstMaxn=30
Dima（1ToMaxn）AsInteger
Dimwz（1ToMaxn）AsInteger
'函數(shù)功能：數(shù)據(jù)塊[st1..edl]與后面數(shù)據(jù)塊交換（兩數(shù)據(jù)塊相鄰且個(gè)數(shù)相等）
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
'將處理結(jié)果返回，代碼略.
EndFunction
PrivateSubCmdl_Click （　　）
DimnAsInteger,numAsInteger,iAsInteger,sAsString
n=Val（Text1.Text）
'隨機(jī)生成n個(gè)不重復(fù)正整數(shù)保存到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'數(shù)字i交換到第i位置的處理尚未完成
EndIf
EndIf
Nexti
EndSub